DOCKET NO: 245430US 

IN THE UNITED STATES PATENT & TRADEMARK OFFICE 



IN RE APPLICATION OF : 

HEBER MACMAHON, ET AL. : EXAMINER: LAMPRECHT, J. 

SERIAL NO: 10/721,827 : 

FILED: NOVEMBER 26, 2003 : GROUP ART UNIT: 3737 

FOR: AUTOMATED METHOD AND : 
SYSTEM FOR THE EVALUATION OF 
DISEASE AND REGISTRATION 
ACCURACY IN THE SUBTRACTION OF 
TEMPORALLY SEQUENTIAL MEDICAL 
IMAGES 



DECLARATION UNDER 37 C.F.R. § 1.131 

COMMISSIONER FOR PATENTS 
ALEXANDRIA, VIRGINIA 22313 

SIR: 

I, Heber MacMahon declare as follows: 

1 . I am Professor of Radiology at the University of Chicago and have performed 
original research in the area of computer-aided detection of anatomical abnormalities since at 
least 1987 at the Rossmann Laboratories for Radiologic Image Research. 

2. In accordance with my employment with the University of Chicago, all of my 
inventions relating to the computer-aided detection of anatomical abnormalities were subject 
to assignment to the University of Chicago during all time intervals discussed herein. 

3. By at least March 2003, 1 and my co-inventor had formed in our minds a definite 
and permanent idea of a complete and operative method and apparatus for determining 
whether a region of interest in a subtraction image includes an abnormality associated with 
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pathological change as currently appearing in at least Claims 1 and 22 of the above-identified 
application, the method including the steps of (a) obtaining a temporal subtraction image of 
an anatomical region of a patient from two images taken at respective times separated by a 
time interval that is long enough to allow for pathological change in the anatomical region; 
(b) extracting at least one feature from the subtraction image; and (c) determining whether a 
region of interest in the subtraction image includes an abnormality associated with the 
pathological change, based on the extracted at least one feature, wherein the determining step 
comprises distinguishing a region of pathologic change from regions with a misregistration 
artifact, as it would be built and applied in practice. 

4. By at least March 2003, 1 and my co-inventor had formed in our minds a definite 
and permanent idea of a complete and operative method and apparatus for generating a 
temporal subtraction image as currently appearing in at least Claims 14 and 33 of the above- 
identified application, the method including the steps of (a) obtaining a first dual-energy 
image, a first standard image, and one of a first bone image and a first soft tissue image from 
the first dual-energy image at a first point in time; (b) obtaining a second dual-energy image, 
a second standard image, and one of a second bone image and a second soft tissue image 
from the second dual-energy image at a second point in time; (c) using the first and second 
standard images to obtain shift vectors to obtain image registration; and (d) performing 
temporal subtraction, using said shift vectors, on one of the first and second bone images or 
one of the first and second soft tissue images to produce a temporally subtracted image, as it 
would be built and applied in practice. 

5. By at least March 2003, 1 and my co-inventor first reduced to practice and 
demonstrated the method and apparatus for determining whether a region of interest in a 
subtraction image includes an abnormality associated with pathological change as currently 
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appearing in at least Claims 1 and 22 of the above-identified application, as stated in the 
attached Invention Disclosure, which was submitted to the University of Chicago Office of 
Technology and Intellectual Property in August, 2003. 

6. By at least March 2003, 1 and my co-inventor first reduced to practice and 
demonstrated the method and apparatus for generating a temporal subtraction image as 
currently appearing in at least Claims 14 and 33 of the above-identified application, as stated 
in the attached Invention Disclosure, which was submitted to the University of Chicago 
Office of Technology and Intellectual Property in August, 2003. 

7. By at least March 1 1, 2003, 1 and my co-inventor first reduced to practice and 
demonstrated the method and apparatus for determining whether a region of interest in a 
subtraction image includes an abnormality associated with pathological change as currently 
appearing in at least Claims 1 and 22 of the above-identified application, as evidenced by the 
attached software program listing. 

8. By at least March 1 1, 2003, 1 and my co-inventor first reduced to practice and 
demonstrated the method and apparatus for generating a temporal subtraction image as 
currently appearing in at least Claims 14 and 33 of the above-identified application, as 
evidenced by the attached software program listing. 

9. On June 8, 2003, I gave a presentation entitled "Computer-Assisted Diagnosis: 
Breast and Thoracic Imaging," submitted herewith, at the 20th Symposium for Computer 
Applications in Radiology, Annual Meeting 2003 (Boston, MA), as shown by page 7 of the 
attached program of that conference. The presentation illustrates the method and apparatus as 
currently appearing in at least Claims 1, 14, 22, and 33 of the above-identified application. 

10. I further declare that all statements made herein of my own knowledge are true 
and that all statements made on information and belief are believed to be true; and further that 
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these statements were made with the knowledge that willful false statements and the like so 
made are punishable by fine or imprisonment, or both, under Section 1001 of Title 18 of the 
United States Code, and that such willful false statements may jeopardize the validity of the 
above-referenced application or any patent issuing thereon. 



By: Mvw^rvwiAV^ Da te: (^Z °7 




Chicago, IL 60614 
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IN RE APPLICATION OF 

HEBER MACMAHON, ET AL. : EXAMINER: LAMPRECHT, J. 

SERIAL NO: 10/721,827 : 

FILED: NOVEMBER 26, 2003 : GROUP ART UNIT: 3737 

FOR: AUTOMATED METHOD AND : 
SYSTEM FOR THE EVALUATION OF 
DISEASE AND REGISTRATION 
ACCURACY IN THE SUBTRACTION OF 
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IMAGES 



DECLARATION UNDER 37 C.F.R. § 1.131 

COMMISSIONER FOR PATENTS 
ALEXANDRIA, VIRGINIA 22313 

SIR: 

I, Samuel G. Armato, III declare as follows: 

1 . I am an Associate Professor of Radiology and the Committee on Medical Physics 
at the University of Chicago and have performed original research in the area of computer- 
aided detection of anatomical abnormalities since at least 1991 at the Rossmann Laboratories 
for Radiologic Image Research. . 

2. In accordance with my employment with the University of Chicago, all of my 
inventions relating to the computer-aided detection of anatomical abnormalities were subject 
to assignment to the University of Chicago during all time intervals discussed herein. 

3. By at least March 2003, 1 and my co-inventor had formed in our minds a definite 
and permanent idea of a complete and operative method and apparatus for determining 
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whether a region of interest in a subtraction image includes an abnormality associated with 
pathological change as currently appearing in at least Claims 1 and 22 of the above-identified 
application, the method including the steps of (a) obtaining a temporal subtraction image of 
an anatomical region of a patient from two images taken at respective times separated by a 
time interval that is long enough to allow for pathological change in the anatomical region; 
(b) extracting at least one feature from the subtraction image; and (c) determining whether a 
region of interest in the subtraction image includes an abnormality associated with the 
pathological change, based on the extracted at least one feature, wherein the determining step 
comprises distinguishing a region of pathologic change from regions with a misregistration 
artifact, as it would be built and applied in practice. 

4. By at least March 2003, 1 and my co-inventor had formed in our minds a definite 
and permanent idea of a complete and operative method and apparatus for generating a 
temporal subtraction image as currently appearing in at least Claims 14 and 33 of the above- 
identified application, the method including the steps of (a) obtaining a first dual-energy 
image, a first standard image, and one of a first bone image and a first soft tissue image from 
the first dual-energy image at a first point in time; (b) obtaining a second dual-energy image, 
a second standard image, and one of a second bone image and a second soft tissue image 
from the second dual-energy image at a second point in time; (c) using the first and second 
standard images to obtain shift vectors to obtain image registration; and (d) performing 
temporal subtraction, using said shift vectors, on one of the first and second bone images or 
one of the first and second soft tissue images to produce a temporally subtracted image, as it 
would be built and applied in practice. 

5. By at least March 2003, 1 and my co-inventor first reduced to practice and 
demonstrated the method and apparatus for determining whether a region of interest in a 
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subtraction image includes an abnormality associated with pathological change as currently 
appearing in at least Claims 1 and 22 of the above-identified application, as stated in the 
attached Invention Disclosure, which was submitted to the University of Chicago Office of 
Technology and Intellectual Property in August, 2003. 

6. By at least March 2003, 1 and my co-inventor first reduced to practice and 
demonstrated the method and apparatus for generating a temporal subtraction image as 
currently appearing in at least Claims 14 and 33 of the above-identified application, as stated 
in the attached Invention Disclosure, which was submitted to the University of Chicago 
Office of Technology and Intellectual Property in August, 2003. 

7. By at least March 11, 2003, 1 and my co4nventor first reduced to practice and 
demonstrated the method and apparatus for determining whether a region of interest in a 
subtraction image includes an abnormality associated with pathological change as currently 
appearing in at least Claims 1 and 22 of the above-identified application, as evidenced by the 
attached software program listing. 

8. By at least March 11, 2003, 1 and my co-inventor first reduced to practice and 
demonstrated the method and apparatus for generating a temporal subtraction image as 
currently appearing in at least Claims 14 and 33 of the above-identified application, as 
evidenced by the attached software program listing. 

9. On June 8, 2003, my co-inventor, Heber MacMahon, gave a presentation entitled 
"Computer-Assisted Diagnosis: Breast and Thoracic Imaging," submitted herewith, at the 
20th Symposium for Computer Applications in Radiology, Annual Meeting 2003 (Boston, 
MA), as shown by page 7 of the attached program of that conference. The presentation 
illustrates the method and apparatus as currently appearing in at least Claims 1,14, 22, and 
33 of the above-identified application. 
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10. I further declare that all statements made herein of my own knowledge are true 
and that all statements made on information and belief are believed to be true; and further that 
these statements were made with the knowledge that willful false statements and the like so 
made are punishable by fine or imprisonment, or both, under Section 1001 of Title 1 8 of the 
United States Code, and that such willful false statements may jeopardize the validity of the 
above-referenced application or any patent issuing thereon. 




Samuel G. Armato, III, Ph.D. 
8247 Cambridge Court 
Downers Grove, IL 60516 
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Invention Disclosure uchi# JM 

University of Chicago Office of Technology and Intellectual Property tfri I03 

UCTech 

Please Print or Type 



1. TITLE OF INVENTION/SOFTWARE (What does it do? Exclude information about how it does it.) 

AUTOMATED METHOD AND SYSTEM FOR THE VISUALIZATION OF PATHOLOGIC CHANGE 
DEMONSTRATED IN THE SUBTRACTION OF TEMPORALLY SEQUENTIAL MEDICAL IMAGES 



2. INVENTOR(S)*Title Citizenship Dept/Campus Address Telephone # 
'Please attach curriculum vitae 

Heber MacMahon, M.D. Ireland Department of Radiology 2-1604 

Samuel G. Armato III, Ph.D. USA Department of Radiology 4-3044 



CONTRIBUTORS TO THE INVENTION 
Name/Title Citizenship 

Roger M. Engelmann, M.S. USA 
Michalis Aristophanous, B.A. Greece 
Charles L. Croteau, D.O. USA 



Dept/Campus Address 

Department of Radiology 
Department of Radiology 
Department of Radiology 



Telephone # 

4-5093 
4-5107 
4-5107 



4. DESCRIPTION OF INVENTION - Attach any additional information or background documentation. What does 
the invention do? How does it do it? What is the significance of the invention? How is it an improvement 
over the existing state-of-the-art? 

The clinical utility of temporal subtraction images created from sequential chest radiographic images of the same patient has been 
demonstrated in the literature and through direct experience at The University of Chicago. A potential barrier to the wide-spread clinical 
use of this powerful technique is the unique appearance of temporal subtraction images, an appearance that some radiologists may 
find distracting. This invention provides a mechanism by which clinically significant information present in a temporal subtraction Image 
may be intelligently integrated with the original radiographic image. 

Are there any special time sensitivities for this invention? Yes No _X_ Please explain on separate sheet. 



5. DISCLOSURE RECORD 


DATE 


REFERENCES & COMMENTS 

Use separate sheet if necessary. Attach copies 


A. Record date you first conceived of the 
invention 


8/02-3/03 


various aspects of the invention were 
conceived throughout this period of time 


B. First oral presentation of invention at 
seminars, meetings, conferences, etc. 


N/A 




C. First publication, e.g. masters or doctoral 
theses, posters, articles, abstracts, seminars 


N/A 




D. First successful demonstration, if any 
(reduction to practice) 


3/03 




E. Other publications to date or anticipated 
publications 


N/A 





6 SUPPORT 

A Inventions, discoveries or device-like software resulting from research or other activities carried out at the or with the 
substantial aid of its facilities or funds administered by It (including salary support) belong to the University. If this is not the 



case for the invention, please provide a memorandum substantiating a request that rights be assigned to the inventor(s). A 

memorandum is attached . 

B. Was the invention/discovery conceived or first actually reduced to practice in the performance of work under any 
sponsored research or activity? 

Yes _X No Some aspects were, other aspects were not. 

Sponsor Contract/Grant # Amount/Percent 

NIH CA64370-03 MacMahon (20%),Armato(10%) 



C. Please designate whether any of the above is a training grant, funding awarded for educational purposes, or unrestricted 
gift funds. 

D. Were any materials used in this invention obtained under a Materials Transfer Agreement? 

Yes No_X_ If yes please indicate institution from which the materials were received and 

UofCPI involved in the agreement. 



7. BACKGROUND RESEARCH AND PRIOR ART related to your invention: (See attached instructions.) 

No relevant prior art exists 

See attached description 

_X_ See attached publications or references 

8. RECORDS to substantiate your invention's history includes: (See attached Instructions) 

X Laboratory notes and records idea only 

Witnessed and dated? _X_ Rough sketches/diagrams 

Financial documents Finished, working drawings 

Dated photographs — Other 

9. TESTING which has already been conducted Includes: 

None 

_X_ Functional testing of prototype to determine if it operates as intended 
Z Market testing of invention 



10. POTENTIAL LICENSEES 

Please list any companies which you think may be interested in you invention. 

Company Address Contact Person Telephone # 

R2 Technology, Inc. Los Altos, CA 



1 1 . TECHNICAL/MARKETING CONTACTS (See attached instructions) 

Company Address Contact Person Telephone # 



12, I/We certify that the above information is complete 
and accurate: 


13. The above confidential information was disclosed 
to and understood by: 


Witness' Signafere ^ Date 
Marvellen L. Gieer, Ph.D. 


Signal ur? ^ Date 

Ufi/LL-a Vnh? 


Witness' printed or typed name 


Co-ln&entor Signature Date 


Department Head Date 
Richard L. Baron. M.D. 


Co-Inventor Signature Date 


Department Head printed or typed name 


THE UNIVERSITY OF CHICAGO 
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CONFIDENTIAL INVENTION DISCLOSURE DOCUMENT 



Instructions: 

Completing this confidential document is the first step toward protecting and commercializing your 
invention. 

The following instructions refer to the correspondingly numbered sections on the attached document. 

1 Use a separate form for each invention. Title should convey what an invention is and what it does, 
not how it works. 

2 Name as co-inventors only those who contributed significantly in the inventive concepts of the 
invention. 

3 Name as contributors others who assisted with refining or reducing to practice some aspect of the 
invention. 

4 Use simple language to describe your invention and define technical terms. State in a sentence or two 
what it does (which is public information), how it does it, and how it is an improvement over the existing 
state-of-the-art. 

5 If you have published or presented this invention previously, please submit copies of the relevant 
abstracts and papers. 

(B) and (C): The term "publication" as used here means written or oral communication, without restriction of 
confidentiality, which would enable members of the general public to legally gain access to a description of 
the invention, Publication therefore includes masters or doctoral theses, posters, articles, abstracts, and public 
seminars. 

Publication to third parties more than one year before filing a U.S. patent application will preclude obtaining 
U.S. patent protection. Publication to third parties prior to the filing of a patent application will preclude 
foreign patenting. 

(D) Reduction to practice occurs when an invention has been embodied in some physical form that is used to 
demonstrate its workability. 

6 (A) "Where research or other activities carried out at the University or with the substantial aid of its 
facilities or funds administered by it result in inventions, discoveries, or device-like software, such products 
shall be disclosed to the University, shall be the property of the University and shall be assigned to the 
University or an organization designated by the University." If there is any doubt a disclosure should be filed 
with a memorandum indicating how the invention does not meet these conditions and requesting that the 
university provide the inventors with a formal release of rights. 

(B) through (D) If the invention was "conceived or first actually reduced to practice in the performance of 
work under any funding agreement or other sponsored research," give the applicable contract or grant 
number(s). Indicate whether the grant was a training or other educational grant. If materials used in this 
invention were obtained under a Materials Transfer Agreement, provide the name of the institution or 
company from which materials were obtained. 



7 Please provide a general description of the background research and pertinent prior work done in the 
field related to your invention. If possible, list five of the most relevant publications and attach copies if 
available. 

8 Please note all documents or forms in which your invention has been recorded or described to 
substantiate your invention's history, such as lab notes. Whenever possible, it is desirable to have a witness 
sign such documents. Actual documents may be requested if patent application is filed. 

9 Self explanatory. 

10 Self explanatory. 

1 1 Please list names and telephone numbers of individuals who possess technical or marketing 
knowledge related to your potential application that could assist in the commercial evaluation of the 
invention. 

12 All inventors must sign and date the disclosure form. Only persons other than co-inventors who 
understand the invention may serve as witnesses; departmental colleagues are excellent resources. 

Note: It is very helpful for UCTech and the inventors to complete a Revenue Distribution Agreement at the 
time of disclosure and submit it along with the disclosure. This can prevent problems in distributing income 
when an invention has been successfully licensed. 

Also, if the disclosure precedes an imminent publication, you may fax or deliver it to UCTech without the 
signature of witnesses or the signature of the Department Head, as long as you follow up quickly with the 
properly signed documents. 

PLEASE SUBMIT ALL COPIES TO: 

Compliance Coordinator 
UCTech 

The University of Chicago Office of Technology and Intellectual Property 
5640 South Ellis, Suite 405 
Chicago, IL 60637 

Re: Invention Disclosure 

Phone: 773-702-1692 
Fax: 773-702-0741 

UCTech's mail code for interoffice mailings is AAC405 

If you made a verbal disclosure to a specific Project Manager at UCTech, you can also send a copy of the 
disclosure to that Manager's attention. 
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C ***** VVVVVVV ************ 

c 

c Name : chest_pack3 . for Verson 2.0 

c modified from verson 2 ,0(chest_pack2 . for) by Xin-Wei Xu 

c Improving the checking and detection of top lung position 

c 4/22/93 



******************** 



sum«0 . 

END DO 
END IF 
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c ******************' 

C Program of calculation of image profile 

c History: March 2,1992 original 

C 

C Name: Profile_.im_sub.FOR 

c****************************************************************** 



SUBROUTINE prof i 1 e_i m_sub(i mage , prof i 1 e , nxw , nyh , xl , X2 , Yl , Y2 , 
& CONTROL) 

implicit integer*2 (i-n) 

integer*2 nxw, nyh, I real image size, maxi size:1000 X 1215 



(column range for profile calculation 
Mine range for profile calculation 
)-l,hori. profile; «2 , vert, profile 
image(nxw,nyh) Mmage buffer 

!nyh >»■ nxw 



& xl,x2, 

& yi,y2. 

& control 
integer*2 

real profile(nyh) 

real*8 sum 

' start of program ***** 

DO i-l.nyh 

profile(l)=0.0 

END DO 
sum-O. 

IF (CONTROL . eq . 1) THEN (horizontal profile of image 
DO IX*Xl,X2 
DO IY»Yl,Y2 

sum-sum+FLOAT(i mage(ix , IY) ) 

END DO 

S um- sum/ FLOAT (Y2 -Yl+1) 
profi le(IX)=sum 
sum«0. 
END DO 

ELSE 'vertical profile of image 

DO IY-Y1.Y2 
DO IX=Xl,X2 

sum-sum+FLOAT(i mage (IX , IY) ) 
END DO 

5um-Sum/FLOAT(X2-Xl+l) 
profi le(lY)=sum 
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(dimension of input & output profiles 
(real size of the profile content 
(number of PV for profile smooth, 3, 5, 7,9,11,13, 



(original input profile 
(smoothed output profile 



Program of smoothing profile with 

N pixel average, N must be 3,5,7,9,11. 

History: April 1,1992 

Name : prof_smo_sub . for 



subroutine prof_smo_sub(prof ,nw,nwr,N,prof_smo) 

implicit integer*2 (i-n) 

integer*2 
& nw , 

& nwr , 

& N 

real 
& prof (nw) , 
& prof_smo£nw) 

real*8 sum 

'** program begin ******** 

m2-N-l 

m-int(float(m2)/2.0) ! 2*m+l«i 

do j=m+l, nwr-m 
kl«i-m 
k2-j+rn 
sum-0.0 
do k-kl.k2 

sum=sum+prof (k) 
end do 

prof_smo(j)-sum/float(N) 
end do 

do j«l,m 

prof_smo(j)*prof_smo(m+l) 
end do 

do j=nwr-m+l,nwr 

prof_smo(j)«prof_smo(nwr-m) 
end do 



Program to obtain first derivative of profile 
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History: March 8, 1992 

modified 4/10/93 



Name: fd_south_sub. for 



subroutine fd_south_sub(prof , posi ,fd,nw,nwr, 
increament,number_fd) 

implicit integer*2 (i-n) 

i nteger*2 



integer*2 
nw, 
nwr, 

increament, 
number_fd, 
posi (nw) 



nwr, 

increament, 
number_fd, 
posi (nw) 

real 

prof (nw) , 
fd(nw) 



(dimension of input profile 
(real size of the profile content, nwr<-nw 
(increament (in PV) for F.D. calculation 
(dimension of F.D. under the increament 
(position of each F.D. under the increament 



(input original profile 

(first derivative of prof, under the incre. 



real 
& prof(nw), 
& fd(nw) 



**** program begin 

inc2«2*i ncreament 

do i=l,nwr, increament 
k-k+1 
jl-i 

q2=jl+i ncreament 
i3=j2+i ncreament 
if (j3.gt.nwr) j3-nwr 
posi J (k)-j: 
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(dimension of input profile 
(real size of the profile content, nwr<-nw 
(increament (in PV) for F.D. calculation 
(dimension of F.D. under the increament 
(position of each F.D. under the increament 



(input original profile 

(first derivative of prof, under the incre. 



c ***** program begin 

inc2=2*increament 
k-0 

do i*l,nwr, increament 
k«k+l 
il=i 

}2-jl+increament 
j3»i2+i ncreament 
if (i3.gt.nwr) j3=nwr 
posi (k)=i2 

fd(k)-(prof(j3)-prof(jl))/float(inc2) IJJSSSS5 south 
end do 
number_fd=k 

! fd is normalized 



***************** 



****************************************** 



Program to obtain first derivative of profile 

History: May 9, 1992 

modified 4/10/93 

Name: fd_north_sub.for 



r _,-j2 

fd(k)-(prof(jl)-prof(j3))/float(inc2) 
end do 
number. fd=k 

fd is normalized 



!$$$$$$ North 



Program to obtain second derivative of profile 
History: March 8, 1992 
Name: sd_south_sub,for 



subroutine sd_south_sub(prof ,posi ,sd,nw,nwr, 
increament, number_sd) 



implicit integer*2 (i-n) 
integer*2 



nwr, 

increament, 
number_sd, 
posi (nw) 

real 
prof (nw) , 
sd(nw) 



(dimension of input profile 
(real size of profile content, nwr<=nw 
(increament (in PV) for S.D. calculation 
(dimension of S.D. under the increament 
(position of each S.D. under the increament 



(input original profile 

(second derivative of prof, under the incre. 



subroutine fd_north_sub(prof ,posi ,fd,nw,nwr, 
& i ncreament, numb er_fd) 



c ***** program begin 



implicit integer*2 (i-n) 



k-0 

do i=l,nwr, 
k=k+l 



increament 
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l2=jl+increament 
if (j2.gt.nwr) then 

number_sd~k-l 

go to 100 

1 if 



j3=j2+i ncreament 
if (j3.gt.rr 
P osiJk)=j2 



l.gt.nwr) j3=nwr 



sd(k)»prof(jl)+prof(j3)-2.0*prof(j2) 
sd(k)*sd(k) 
end do 
number_sd*k 



Program for obtain a straight line 
from two points (y*a+bx,or x=a+by) 

Name: straight_l i ne_sub. for 

History: March 5, 1992 

summary: fit a line in two direction: Hori or vert 

The two points were put into program following the rule 

up then down (for Vert, cases;, 

and left then right (for Hori. cases). 



subroutine strai ght_l i ne_sub (xl,yl,x2,y2,x p y,N, control ) 
implicit integer*2 (i-n) 



integer*2 
xl.yl, 
x2,y2. 
N, 

X(N), 

y(N), 

control 



(position of first point (in PV) 
(position of second point (in PV) 
(dimension of the line 
!x position of line(l-N, for Hori. line) 
!y position of line(l-N, for Vert, line) 
!«1, horizontal line; =2, vertical line 
!«l,hori :X=l->width; =2 , vert: Y=l->height ; 



program begin ' 



if (control .eq.l) then ! horizontal straight line 
slope=float(y2-yl)/float(x2-xl) "slope 
do i-i,N 

xm-i 

y(i)»yl+int(slope*float(i-xl)) 
end do 
end if 

if (control .eq. 2) then I vertical straight line 
slope=float(xl-x2)/float(yl~y2) ! slope 
do i-l,N 
y(i) = i 
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x(i)=xl+i nt(slope*float(i-yl)) 
end do 
end if 



Program to obtain the crossing 
point of two straight lines 

Name : c ross_p_2_l i ne_sub . for 

History: March 20, 1992 



*********** 



subroutine cross_p_2_line_sub(xl,yl,Nl,conl,x2,y2,N2,con2,x,y) 
implicit integer*2 (i-n) 



integer*2 
Nl, 
N2, 

xl(Nl) ,yl(Nl) 
x2(N2) ,y2(N2) 

conl| 



! dimension of line 1 

! dimension of line 2 

! line 1, x and y position 
, ! line 2, x and y position 

! position of corssing point 
(-l.line 1 is hori; yl«a+b*xl; xl:l -> width 
(-2, line 1 is vert; xl«a+b*yl; yl:l -> height 

1-1, line 2 is hori; y2«a+b*x2; x2:l -> width 
(=2, line 2 is vert; x2=a+b*y2 ; y2:l -> height 



c **** program begin ** 



if ( (conl. eq.l). and. (con2. eq.l)) then 
ixl«int(fToat(Nl)/4.0) 
ix2*int(3.0*float(Nl)/4.0) 
iyl-ylfixl) 



'2»yl(ix2: 



bl=float(iyl-iy2)/float(ixl-ix2) 
al=float(iyl)-bl*float(ixl) !yl«al+bl*xl 

ixl-int(float(N2)/4.0) 
ix2=int(3.0*float(N2)/4.0) 
iyl-y2(ixl) 
iy2-v2(ix2) 

b2=float(iyl-iy2)/float(ixl-ix2) 
a2-float(iyl)-b2*float(ixl) Iy2«a2+b2*x2 

if ( (abs(bl).le. 0.00001). and. (abs(b2) . le . 0. 00001) ) then 
type*, 'lines are // to hori. direction, no cross point' 
return 

end if 



if (abs(bl-b2).le. 0.00001) then 

type*, 'lines are parallel, no cross point' 

return 
end if 
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xf.(al-a2)/(b2-bl) 
x*int(xf) 
yf=al+bl*xf 
y=int(yf) 
end if 
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if ((conl. eq.l) .and. (con2.eq.2)) then 
ixl=int(float(Nl)/4.0) 
i x2-i nt (3 . 0*f 1 oat (Nl)/4 . 0) 
iyl-ylfixl) 
iy2«yl(ix2) 

bl-float(iyl-iy2)/float(ixl-ix2) 
al»float(iyl)-bl*float(ixl) !yl-al+bl*xl 

iyl»int(float(N2)/4.0) 

iy2=int(3.0*float(N2)/4.0) 

ixl-x2(iyl) 

ix2=x2(iy2) 

b2«float(ixl-ix2)/float(iyl-iy2) 
a2-float(ixl)-b2*float(iyl) Ix2-a2+b2*y2 

if ( (abs (bl).le. 0.00001). and. (abs(b2).le. 0.00001)) then 

type*, 'these two lines are perpendicular' 

x-int(a2) 

y»int(al) 

return 
end if 

yf«(al+a2*bl)/(l-bl*b2) 
y-int(yf) 
xf«a2+b2*yf 
x=int(xf) 
end if 

if ((conl. eg. 2). and. (con2. eq.l)) then 
iyl-int(float(Nl)/4.0) 
iy2-int(3.0*float(Nl)/4.0) 
i xl=xl(iyl) 
ix2-xl(iy2) 

bl=float(ixl-ix2)/float(iyl-iy2) 
al-float(ixl)-bl*float(iyl) !xl-al+bl*yl 

ixl-i nt(float(N2)/4.0) 
i x2-i nt(3 . 0*f loat (N2)/4 .0) 



iyl=»y2 (i xl) 
iy2-y2(ix2) 
b2=float(iyl-iy2)/float(ixl-ix2) 
a2»float(iyl)-b2*float(ixl) 



Iy2-a2+b2*x2 



i f ( (abs (bl) . 1 e . 0 . 00001) . and . (abs (b2) . 1 e . 0 . 00001) ) 
type*, 'these two lines are perpendicular' 



-int(al) 
y-int(a2) 



xf=(al+a2*bl)/(l-bl*b2) 
x-int(xf) 
yf»a2+b2*xf 
y-int(yf) 
end if 
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if ((conl.eq.2) .and. (con2 .eq.2)) then 
iyl-int(float(Nl)/4.0) 
iy2-intp.0*float(Nl)/4.0) 



ixl-xlfiyl) 
ix2-xl(iy2) 
bl-floatr- 
al=float' 



y2) 

:(ixl-ix2)/fl 
:Cixl)-bl*flo 



oat(iyl-iy2) 



floatC 



! xl-al+bl*yl 



Ix2=a2+b2*y2 



iyl-int(float(N2)/4.0) 
iy2»int(3.0*float(N2)/4.0) 
ixl-x2(iyl) 
ix2-x2(iy2) 

b2=float(ixl-ix2)/float(iyl-iy2) 
a2*f 1 oat (i xl) -b2*f 1 oat (i yl) 

if ( (abs (bl). 1 e. 0.00001). and. (abs (b2).le. 0.00001)) then 
type*, 'lines are // to vert, direction, no cross point' 
return 

end if 

if (abs(bl-b2).le. 0.00001) then 

type*, 'lines are parallel, no cross point' 
return 

end if 

yf«(al-a2)/(b2-bl) 
y=int(yf) 
xf«al+bl*yf 
x=int(xf) 
end if 



Program to detect primary top position of lung 

Explain: input chest images must be 1000 X 1215 
or 1000 X 1000, which are 14" X 17" or 14" X 14" 
chest films digitized by Konica laser digitizer, 
using reduce factor of 2 ; 1 PV * 0.35 mm; 

Name : top_l ung_sub . for 

History: March 10,1992 

modified 3/21/93 
modified 4/10/93 
modified 4/16/93 

modified by Xin-Wei for anysize image 

;*********************************************** 



subrouti ne top_1 ung_sub (i mage , nxw, nyw, top_l ung , top_i mage , 
& success) 

implicit integer*2 (i-n) 

integer*2 

& nxw, nyw, linput image size 

& image(nxw,nyw) limage buffer 
integerM 

& top_lung, (primary top lung position 
Page 8 



J top_image 

integer*2 
& success 
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Ibottom of blank whit top;-l if no white top 

1-1, success in finding top of lung; 
1-0, fail in finding top of lung; 

When calling top_nowhi te_fd , since expects 



integer*2 top_image2 
i nteger*2 

integer*2 
& posi(1215), Iwork array 

& top_search_end, Iwork parameter 
& prof_max_posi , Iwork parameter 
% counter ! counter number for looping 

integer*2 top_lung2 , top_lung3 I Because we pass toplung to profi 1e_im_sub, 
which expects integer*2 

real 

& prof_vert(1215) , prof_vert_smo(1215) , 

& prof_hori(l215), 

& fd(1215),pixsmm, 

$ profSD(1215), profrop(12lS) 



modify to determine 
ng close to imai_ 

narrow and tiltwhite edge at top 



(1) : lung close to image edge 

(2) : a 



using two narrow hori profiles, 

width 5 pixel (500 size image) seperate 5 

pixels? 2/12/96 



real p_h_templ(1215) ,spji_templ(1215) , 
& p_h_temp2 (1215) ,sp__h_temp2 (1215) 

c**** program begin ***** 

top_image - 1 ! THIS IS A DEFAULT! ! I THINK THE SUBROUTINE COULD < 

ALL THE WAY THROUGH WITHOUT SETTING top_image! ! — Roger 

pixsmm«350.0/float(nxw) I pixel size in mm; 

top_search_end=*int(3.0*float(nyw)/8.0+0.S) 

c inc_width«int(float(nyw)/200.) ! width of the profile 

c if (inc.width.eq.O) inc_width=l 

inc_width«=5 



is-int(float(nxw)/7.0+0.5) 
ie-int(6.0*float(is)+0.5) 

i nc-nxw/90 

i nc_odd«2*(i nt(i nc/2 . 0))+l 
inc_odd=ll 



! check from 1/7 of image width 
! check end at 6/7 of image width 



lnxw-1000, inc_odd-ll; 



2/12/97: set initial two profiles for check lung location 
index=l 
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itxl-1 
itx2=nxw 

ityl-1 
ity2*4 

call prof ile_im_sub(i mage ,p_h_templ, nxw, nyw ,itxl,itx2, 
ityl,ity2, index) ! original profile 

call prof_smo_sub(p_h_templ,itx2 ,itx2 , inc_odd,sp_h_templ) (smoothed one 

open(uni t»33 , f i 1 e- ' p_h_templ' ) 

do i=itxl,itx2 

write(33,*)i , sp_h_templ(i ) 

end do 
close(33) 

ityl-8 
ity2-12 

cal 1 prof i 1 e_i m_sub (i mage , p_h_temp2 , nxw , nyw, i txl , i tx2 , 
i tyl, i ty2 , i ndex) ! ongi nal profi le 

cal 1 prof_smo_sub(p_h_temp2 , i tx2 , i tx2 , i nc_odd , sp_h_temp2) ! smoothed one 

open(unit*33,file=' p_h_temp2') 

do i=itxl,itx2 
write(33,*)i. sp_h_tem P 2(i) 

end do 
close(33) 

cal 1 parameter_hori Prof (sp_h_temp2 , sp_h_templ, i tx2 , i e , i s , 
PVmax_mi n, ave, PVmi n, sigma, cc ,cd, rcc_cd) 



write(6,*) "cc, cd, ratio(cc/cd) 

wri te(6,*)' 

wri te (6 , *) ' max-mi n , ave , mi n , si 



wri te(6,*)' 

'6,*) 'max-mi n.ave.min, sigma: ' ,l 
wri te(6 , *) '*********************** 



cd , rcc_cd 
PVmax_mi n , ave , PVmi n , si gma 



if ((cd.lt. 2.0) .and. (sigma. It. 120.0)) then 

top_lung=3 

success-1 

go to 200 
else 

istarti=9 

ind=l 
end if 



! 2/18/97 



2/12/97 ' 



********** 



obtain standard hori profile at 3/8, in vertical of image *** 

loc_ySD=top_search_end (location of SD hori profile 

ixl-1 
index-1 

call profi le_im_sub (image, prof _hori ,nxw,nyw,ixl t nxw ( 
$ loc_ySD-inc_width, loc_ySD, index) ! original profile 

call prof_smo_sub(prof_hori ,nxw,nxw,inc_odd,profSD) Ismoothed one 
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c *** end of SD hori profile *** 

c *** find top lung position by using vertcal prof in image center *** 

nnl»nxw/4 
nn2=3*nnl 
nn3=l 
nn4*2 

call prof ile_im_sub(i mage, prof_vert, nxw, nyw, nnl, nn2 ,nn3, nyw, nn4) 
! vertical profile in midline arae with width of half of image width 

cal 1 prof_smo_sub(prof_vert, nyw, nyw, i nc_odd , prof_vert_smo) 
! 11 point simple smooth of prof_vert, smooth is moved to here 

!top lung search range is within upper 3/8 of image height area 

prof_ave=0.0 Ifind ave PV in upper 3/8 area 

do j=istarti ,top„search_end ! 2/18/97: j=l, top_search_end 

prof_ave=prof_ave+prof_vert_smo(j) 
end do 

prof_ave=prof_ave/float(top_search_end) 

prof_max=*prof_vert_smo(istarti) Ifind max PV in upper 3/8 area; 2/18/97 
istarti-1 

prof_max_posi=l 

do j-istarti+1, top_search_end 12/18/97: istarti=l 
if (prof_vert_smo(j) ,gt.prof_max) then 
prof_max-prof_vert_smo(j) 
prof_max_posi-j 
end if 
end do 

ratio_max_ave«prof_max/prof_ave (ratio of Pmax/Pave in upper 3/8 

posi_max-pi xsmm*f loat (prof_max_posi ) 

! distance of position of max profile value from top of image (in mm) 

c type*, 'INFO about the vertical profile:' 

c type* , ' Vp_max , vp_ave , R ' , prof_max , prof_ave , ratio_max_ave 

c type*, 'prof _jmax_posi (PV) ,posi_max (mm) ' , prof_max_posi , posi_max 



if ((ratio_max_ave.ge. (0. 01*posi_max+1.2)) . and . 
1 (posi_max.le.20.0)) then 
if (prof_max.le. 750.0) then 

ind*3 !no BW.top lung position is a step edge 

else 

ind»2 lhas blank white unexpo. area at top 

end if 
else 

ind=l !no blank white unexpo. area at top 

end if 



if (ind.eq.l) then ! 

write(6,*)' No blank white area in top lung ' 
else if (ind.eq.2) then 
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write(6,*)' Has blank white area in top lung ' 
else 

write(6,*)' No BW in top, top lung is step edge ' 
end if 



I in chest_pack.for and chest_pack2 . for vert, prof smooth (11 point) 

I is at this step, i.e., afetr blank white detection. This is may not good. 

c ************************* ********************** ************************ 

c*** loop for detect top of lung ***** 

nnl»5 
nn2*l 

call fd_south_sub(prof_vert_smo, posi ,fd,nyw,nyw,nnl,no_fd) 
I 2/18/97: i_start-l 



i_start*istarti 
counter=l 



conti nue 

type*,' #### **** Loop Time: 



*** .counter 



if (ind.eq.3) then 
top_image-l 

i end=>=i nt (top_search_end/2 . 0) 
do i»l,no_fd 

if (posi(i).ge.iend) then 
istop*=i 



enSV 0 50 



.... if 
end do 

conti nue 

fd_min=fd(istarti) ! 2/18/97: (1) 
top_lung»posi (istarti) I 2/18/97: (1) 
do i»istarti+l,istop I 2/18/97: (2) 

if ffd(i) ,lt.fd_min) then I for step edge using min peak 
fd_min=fd(i) I of FD to define the top position 

top_lung=posi (i) I in the range of half of the 3/8. 

end if 
end do 
go to 150 



top_image2 - top_image 
if (ind.eq.l) then 

cal 1 top_nowhi te_f d (prof_vert_smo , nyw, nnl , top_search_end , 
i _start , i top , top_i mage2 , posi , f d , i ndexl) 

end if 

top_image - top_image2 

top_image2 = top_image 
if (ind.eq.2) then 

cal 1 top_wni te_fd (prof_vert_smo t nyw, nnl , top_search_end , 
i_start, i top, top_image2 , posi ,fd,i ndexl) 
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top_image2 



if (indexl.eq.O) then 
if (counter. eq.l) then 
success=0 

cj type*, 'top lung finding fail:No zero-crossing in FD ' 

c} type*,'*** may need density correction ***' 

cj type* ,' program output guessed top lung position' 

top_l ung»i nt (top_search_end/2 . 0) 

go to 150 
else 

top_lung»itop_pre 
go to 200 
end if 
end if 

c ******************************************************** 

call profile_im_sub(image,prof_hori , nxw, nyw, nn2 , nxw, 
& i top , i top+i c_wi dth , nn2 ) 

! check horizontal profile at detected top lung position 

call prof _smo_sub (prof _hori , nyw, nxw, inc.odd, profTOP) 

! 11 point simple smooth of profjiori 

cal 1 parameter_hori Prof (profTOP , prof SD, nxw, ie , is , PVmax_mi n, 
% ave,PVmin,sigma,cc,cd,rcc_cd) 



sigma_cal -0 . 2*PVmax_mi n+50 . 0 

if (counter. eq. 1} then 

if (sigma.ge.sigma_cal) then 
i_start»itop 
itop_pre=itop 
counter<=counter+l 
go to 100 
else 
top_lung»itop 
success»=l 
go to 200 
end if 
end if 

if (counter. gt.l) then 

if fsigma. ge .sigma^cal) then 
if (cc.gt.0.80) then 

type*, 'current det. top is in lung,top_lung-itop_pre' 
top_lung=»i top_pre 
success-1 
go to 200 
else 
i_start=i top 
i top_pre=i top 
counter=counter+l 



go to 
end if 
end if 
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if (prof_vert_smo(itop_pre).ge.prof_vert_smo(-itop)) then 
top_lung-itop_pre 
else 
top_lung*itop 
end if 
success-1 
go to 200 
end if 



conti nue 



top_lung2 ■= top_lung 



to[>__lung3 = top_lung+ic_width^_ 
top_lung * top_lung2 



call prof i 1 e_i m_sub (i mage , prof_hori , nxw , nyw, nn2 , nxw, 
top_lung2 , top_lung3 , nn2) 



! check horizontal profile at detected top lung position 

cal 1 prof_smo_sub (prof_hori , nyw, nxw , i nc_odd , profTOP) 
! 11 point simple smooth of prof_hori 

call par ameterjiori Prof (profTOP, profSD, nxw , ie, is , PVma: 
% ave , PVmi n , si gma, cc , cd , rcc_cd) 



type*,' TOP LUNG«==' ,top_lung 



subroutine of find parameters from hori prof's 
Name: parameter_horiProf .for 
4/11/93 



*********************** 

subroutine parameter_hori Prof (prof .profSD.nprof ,ie,is, 
% PVmax_mi n , ave , PVmi n , si gma , cc , cd , reeled) 

implicit integer*2 (i-n) 

integer*2 nprof.ie.is 

real prof (nprof) , prof SD(nprof ) 

real PVmax_mi n , ave , PVmi n , si gma, cc , cd , rcc_cd 
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real*8 sum, sigma2 

' program begin *** 

' begin of standard hori profile *** 

sum«0.0 
k-0 

do i»is,ie,20 
Mt+1 

sum=sum+profSD(i ) 
end do 

aveSD»sum/float(k) 

sigma2«0.0 
k-0 

do i»is,ie,20 
k«k+l 

si qma2=sigma2+(prof SD(i ) -aveSD)**2 
end do 

sigmaSD*sqrt(sigma2/float(k-l)) 
sigmaA-sqrt(sigma2) 

pmi nSD-p rof SD(i s) 
do l-is,ie 

if (profSD(l).lt.pminSD) pminSD-profSD(l) 
end do 

rati o_si gma_aveso=si gmaSD/aveso 
rati o_si gma_pmi nSO=si gmaSD/pmi nSD 

type*,'*** INFO of standard (SD) hori profile ***' 
type*, ' ave, pmi n, si gma: ' , aveSD, pminSD.sigmaSD 
type* , ' rati o_si gma_ave (SD) : ' . rati o_si gma_aveSD 
type*, 'ratio_sigma_pmin(SD) : , ratio_sigma_pminSD 

' end of this part *** 

' begin of hori profile at top of lung *** 



pmax-prof(is) 
do l=is,ie 

if (prof (1) .gt.pmax) j 
end do 



-prof(l) 



pmin»prof(is) 
do l»is,ie 

if (prof (1) . lt.pmin) pmin=prof(l) 
end do 

PVmax_mi n=pmax-pmi n 
PVmi n=pmi n 



sum»=0.0 
k-0 

do i»is,ie,20 
k=k+i 

sum=sum+prof (i ) 
end do 

ave=sum/float(k) 
sigma2«=0.0 
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k-0 

do i-is,ie,20 
k=k+l 

sigma2=sigma2+(prof(i)-ave)**2 

sigma«sqrt(sigma2/float(k-l)) 
sigmaB=sqrt(sigma2) 



rati o_si gma_ave=si gma/ ave 
rati o_si gma_pmi n=si gma/pmi n 

type*,'*** INFO of hori profile at TOP LUNG ***' 
type*, 'ave.pmin.sigma: ' , ave,pmin,sigma 
type*, 'PVmax-PVmin: ' ,PVmax_min 
type*, ' rati o_sigma_ave (Top) : ' . ratio_sigma_ave 
type* , ' rati o_si gma_pmi n (Top) : , rati o_si gma_pmi n 



*** *** *** 



cross-difference between prof and profSD ' 



cd-0.0 

do i»is,ie,20 

cd=cd+(prof(i)-profSD(i))**2 
end do 

si gmaAB»sigmaA*si gmaS 
cd=cd/sigmaAB 
c type*, 'cross-diference:cd' , cd 

c *** *** *** end of cross-difference calculation *** *** *** 
c *** *** *** cross-correlation between profSD and prof *** *** 
cc-0.0 

do i*is,ie,20 

cc«cc+(profSD(i)-aveSD)*(prof(i)-ave) 
end do 

cc-cc/si gmaAB 
c type*, 'cross-correlation:cc' , cc 

c *** •*« *** enc j 0 f cross-correlation calculation *** *** *** 

rcc_cd-cc/cd 
c type*, 'ratio of cc/cd=" , rcc_cd 

c *** end of this part *** 



c ****************************- 



******** 



subroutine of lung top detection for no 
white area in up lungs 

pro : smoothed vertical profile in mid up lungs 
kkk : increatment of sobel filter(in pixel number) 

index: (=0, no zero-cross if the FD)/(«=l,has zero-crossing) 

modified in 4/11/93 

subrouti ne top_nowhi te_f d(pro , i y , kkk , i_end , i _ori , i _top , 
i top_i mage , posi , f d , i ndex) 
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implicit integer*2 Ci-n) 
integer*2 posi (iy) ,fd_no, top_image 
real pro(iy) ,fd(iy) 
c******** begin of progranm *********** 



CHEST.PACK3 . f 

end if 
end do 

index=0 ! no zero-crossing in FD 
continue 



,fd_no) ! F.D. of pro 



i_top«l 
top_image«=l 
index-1 

call fd_south_sub (pro, posi , f d , i y , 1 y , I 

do i-l,fd_no 

if (posi(i).gt.i_ori) then 
is«i 

go to 50 
end if 
end do 
continue 

start search point of first 0 crossing & -slop from i_ori **** 
do i=i s , fd_no-l 

if ((fd(i) .ge.0.0) .and. (fd(i+l) .lt.0.0)) then!0 crossing & "-slop" 
qrad»fd(i)-fd(i+l) (gradient at 0 cross must 1 anger than 0.1 
if (grad.ge.0.1) then 

top.=fl oat (posi (i)+posi (i+l))/2.0 
i_top=int(top+0.5) 
go to 100 
else 

no„psign*l 
no_nsign=l 

do ip=i-l.is,-l 

if (fd(jp).ge.O.O) then 
no_psi gn=no_psi gn+1 
else 

§o to 60 
if 

end do 
conti nue 

O if ni (fd(jn)7lt.0.0) then 
no_nsi gn=no_nsi gn+1 
else 
go to 70 
end if 
end do 
continue 

type*, 'The grad. at 0 crossing is less than 0.1' 
type* , ' no_psi gn , no_nsi gn— ' , no_psi gn , no_nsi gn 
if ((no_psign.ge.8) .and. (no_nsign.ge.8)) then 
top=floatTposi (i)+posi (i+l))/2 .0 
i_top=int(top+0.5) 

fto 100 
if 
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subroutine of lung top detection for having 
white area in up lungs 

Ero : smoothed vertical profile in mid up lungs 
kk : increatment of sobel filter(in pixel number) 

index: ("0, no zero-crossing in FD)/(-l,has zero-crossing) 

modified 4/11/93 

.************************************************* 

subrouti ne top_whi te_f d(pro , i y , kkk , i_end , i _ori , i _top , 
& top_i mage , posi , f d , i ndex) 

implicit integer*2 Ci-n) 

integer*2 posi (iy) ,fd_no, top_image 

real pro(iy) ,fd(iy) 

c ***** beg -j n 0 f program ********************* 

index«l 
i_top=l 

cal 1 f d_sou th_sub(pro , posi , f d , i y , i y , kkk , f d_no) 

c***** find blank white area range ********** 

i_peak=l 
peak=pro(l) 
do i«2, i_end 



if (pro(i) .gt.peak) then 
peak-pro(i) 
i_peak=i 
end if 

end do ! find peak caused by white araes 

ppeak=0.9*peak 

do i»i_peak, i_end 

if ((pro(i).ge.Ppeak).and.(pro(i+l).le.Ppeak)) then 
i90per-i 



go to 100 

end if 



...J if 
end do 
continue 



I find position of 90% of white area peak 



do i-i90per. i_end 

if (Cpro(i).ge.pro(i+l)) . and. (pro(i+2) .gt.pro(i+l))) then 
■ - ■ - lis" ' ' ' ' " 



isl=i+l 
go to ISO 



isl: primary lower edge of blank white top 
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end if 
end do 
continue 

top_image»isl 

do i=l,fd_no 

if (posi (i) .ge. isl) then 
ibl=i 

So to 200 
if 

end do Hbl: to avoid blank white area 
continue 



do i=l,fd_no 

if (posi(i).gt.i_ori ) then 
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top=float(posi(i)+posi(i+l))/2.0 
i_top=int(top+0.5) 



if 

end if 
end if 
end do 

index=0 ! no zero-crossing in the FD 

continue 



f (posi 
ib2*i 
i to 
if 



go to 250 
end if 



end do !ib2: to avoid previous neck or chin position 
£->u continue 

if (ib2.ge.ibl) then 

is=ib2 
else 

is-ibl 
end if 

c**** start search point of first 0 crossing & -slop from i_ori *** 
do i»is,fd_no-l 

if ((fd(i).ge.0.0).and.(fd(i+l).lt.0.0)) then!0 crossing & "-slop" 
grad=fd(i)-fd(i+l) (gradient must greater than 0.1 at top lung 
if (grad.ge.0.1) then 

top=float(posi(i)+posi(i+l))/2.0 

i_top=i nt(top+0.5) 



no_psign=l 
no_nsign=l 

do ip»i-l,is,-l 

if (fd(jp).ge.O.O) then 
no_psi gn=«no_psi gn+1 
else 
go to 260 
end if 
end do 
continue 

do in*i+2,fd_no-l 

if (fd(gn).lt.O.O) then 
no_nsi gn=no_nsi gn+1 
else 
go to 270 
end if 
end do 
conti nue 

type*,'The grad. at 0 crossing is less than 0.1' 
type*, 'no_psign,no_nsign-«' ,no_psign,no_nsign 
if ((no_psign.ge.8) .and. (no_nsign.ge.8)) then 
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program to mark a point by a cross 
History: April 3,1992 
Name: mark_cross_sub.for 



subroutine mark_cross_sub(image,nxw,nyh,IX,IY,Rl,R2) 
implicit integer*2 (i-n) 



integer*2 
& nxw.nyh, 
& image(nxw.nyh) , 

& IX, IY, 

& Rl, 
& R2 

c**** start of the program *' 

do j=IY-R2,IY+R2 
do i-IX-Rl, IX+Rl 
image(i,j)=1023 
end do 

end do 

do i-!X-R2,Ix+R2 
do j-IY-Rl, IY+Rl 
image(i,j)«1023 
end do 

end do 



Ibuffer size 

! image buffer 

'mark center point 

lhalf size of the cross mark 

lhalf thickness of mark, R2 < Rl 



program to mark a point by a circle 
History: March 26,1992 
Name: mark_ci rcle_sub . for 
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subroutine mark_ci rcle.sub (image , nxw, nyh, IX, IY, Rl, R2) 

implicit integer*2 (i-n) 

integer*2 

nxw , nyh , 
image(nxw, nyh) , 
IX, IY, 
Rl. 
R2, 
RX 



(buffer size 
! image buffer 
(mark center point 
(radius of the circle mark 
(thickness of circle mark, R2< Rl 



c**** start of the program ' 



do RX-R1-R2, R1+R2 
do i-lx-Rx, IX+RX 

y«f1oat(Rx*Rx-(IX-i)*(IX-i)) 
y-sqrtfy) 



iht^ 



+i nt(y; 

IVM: 



j2=iY+int 
image 
image 
end do 
end do 

return 



102 3 
=1023 



*************************** 



program for calculating gradient 
at a point; using soble filter 
(x: in east direction; y: in south 
di recti on) 

Name: gradi ent_east_south_sub. for 

History: May 21, 1992 



subroutine gradi ent_east_south_sub(image , nxw, nyh , i x , iy , Nx , Ny , 
gradient, angle) 



implicit integer*2 (i-n) 



integer*2 
nxw, nyh, 
image(nxw,nyh) , 
ix, iy, 
Nx , Ny 



! buffer size 

I image buffer 

! position where gradient be calculated 

! mask size for gradient calculation 



gx-0.0 
gy-0.0 

do j-iy-l.iy+l 

gx=i mage (ix+Nx, j) -image (ix-Nx, j)+gx 
end do 

gx=gx/(2 .0*3.0*Nx) 

do i«ix-l,ix+l 

qy*=i mage (i x , i y+Ny) -i mage(i x , i y-Ny) +gy 
end do 
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gy=gy/(2.0*3.0*Ny) 

gradi ent-sqrt(gx*gx+gy*gy) 

if ((gy.eq.0.0) .and. (gx.eq.0.0)) then 

angle=0.0 

go to 10 
end if 

angl e-atan2d (gy , gx) 
angle=atan2(gy,gx)/3. 1415926*180.0 

conti nue 
return 



program for calculating gradient 
at a point; using soble filter 
(x: in west direction; y: in south 
di recti on) 

Name: gradient_west_south_sub.for 

History: May 21, 1992 



********* 



subrouti ne gradi ent_west_south_sub (i mage , nxw , nyh , i x , i y , Nx , Ny , 



gx , gy , gradi ent , angl e) 



implicit integer*2 (i-n) 



integer*2 
nxw, nyh, 
image(nxw,nyh), 
ix.iy, 
Nx , Ny 



! buffer size 

! image buffer 

! position where gradient be calculated 

! mask size for gradient calculation 



gx=0.0 
gy=0.0 

do j=iy-l,iy+l 

gx=image(ix-Nx , j)-image(ix+Nx, ])+gx 
end do 

gx=gx/(2.Q*3.0*Nx) 

do i«ix-l,ix+l 

|y-i mage (i x , iy+Ny) -i mage(i x , i y-Ny) +gy 

gy=gy/(2.0*3.0*Ny) 

gradi ent=sqrt(gx*gx+gy*gy) 

if ((gy.eq. 0.0) .and. (gx.eq.0.0)) then 
ang Te=0.0 
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angl e=atan2d (gy , gx) 

angl e=atan2 (gy , gx)/3 . 1415926*180 . 0 

continue 

return 



c ****** 
C 

c 
c 



************************************************** 
SUBROUTINE FOR REARANGING One Dimension ARRAY of IPX 
from small VALUE TO Large VALUE, and IPY follow the IPX 
whatever the order of the value 
name : REarrange_s_L.FOR 



SUBROUTINE REarrange_s_L (IPX , IPY , N , No_real ) 



IMPLICIT integer*2 (I-N) 

integer*2 IPX(N) ,IPY(N) , 
& No_real 



! real dimension of the array 



DO I»l,No_real 
3-1 

IMIN=IPXO) 
IP-J 

DO loo,No_real 

IF (IPX(K).LT.IMIN) THEN 
IMIN-IPX(K) 
IP-K 

END IF 
END DO 
ITX-IPXO) 
ITY-IPY(D) 
IPX(3)*IPX(IP) 
IPY[3)*IPY(IP) 
IPX(IP)-ITX 
IPY(IP)=ITY 



SUBROUTINE FOR REARANGING One Dimension ARRAY of IPX 
FROM Large VALUE TO Small VALUE, and IPY follow the IPX 
whatever the order of the value 
NAME: REarrange_L_S.FOR 
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SUBROUTINE REar range_L_S (IPX , IPY, N , No_real ) 



IMPLICIT integer*2 (I-N) 

integer*2 IPX(N),IPY(N) , 
& No_real ! real dimension of the array 



DO I«l,No_real 
J -I 

IMAX»IPX(J) 
IP=3 

DO KO,No_real 

IF (IPX(K).GT.IMAX) THEN 
IMAX-IPX(K) 
IP=K 
END IF 
END DO 
ITX-IPXp) 
ITY-IPY(J) 
IPX(J)-IPX(IP) 
IPYO)-IPY(IP) 
IPXfIP)=ITX 
IPY(IP)=-ITY 
END DO 



RETURN 
END 

******************************************* 



SUBROUTINE to mark the ROI POSITION in the image 
SUBROUTINE NAME: ROI_mark_sub . FOR ; 



SUBROUTINE ROl_mark_sub (Image , nxw , nyh , LXl , LX2 , LYl , LY2) 

implicit integer*2 (I-N) 

integer*2 Image(nxw.nyh) ! image buffer 

integer*2 lxl, 1x2 , lyl, ly2 ! ROI position in the image 



DO IX=LXl,LX2 

Image(lX,LYl)«1023 
Image(lX,LY2)«1023 

END DO 

DO IY=LYl,LY2 

Image(LXl,IY)-1023 
Image(LX2,IY)-1023 

END DO 
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**************** 

program of calculating histogram in a ROI in a image 

(The image is 10 bits) 
name: Histogram_ROI_sub,for; 

sub rou ti ne Hi stogram_ROl_sub (Image , nxw, nyh , xl , x2 , yl , v2 , bi n , 
& No,Hist_pixel ,Hist_freq) 

implicit integer*2 (i-n) 

integer*2 Image(nxw.nyh) ! image buffer 

integer*2 xl.x2.yl.y2, ! ROI position in the image 

& bin, ! histogram bin size 

& Hist_pixel(1024),! pixel value 

& no ! number of histogram data after bin comprass 



real 



Hist_freq(1024) I occurance frequency of pixel value 



CHEST_PACK3.f 

do j-il,i2 

sum=hi st(j)+sum 
end do 

Hist_pixel (i)=il+incre . 
if(Hist_pixel(i).gt.l023) Hist_pixel(i)-1023 
hist_sum(i)»sum 
sum«0 

11- il+bin 

12- i2+bin 

if (i2.GT.1023) i2=1023 
end do 

c *** end of this part *** 

c **** get tota T pixel number of the image 

total -0 
do i -1.no 

total -total+hi st_sum(i ) 
end do 

c ***«* normalize histogram in term of percentage **** 
ftotal_bi n«= float (total *bi n) 

d °Hist!.f?eq(i)=100.*(float(hist_sum(i))/ftotal_bin) 
end do 

c *** end of this part *** 



integer total, sum, 
& hist(0:1023), hist_sum(1024) 



c *** initialize histogram *** 

do i-0,1023 
hist(i)=0 
end do 

c *** end of this part *** 

c********* obtain histogram in the ROI 1 



do j-yl,y2 

do i=xl,x2 

hist(image(i , j))=hist(image(i , j))+l 

end do 
end do 

,***** end of this part ************* 



** consider bin compression ************ 

fNo-1023./float(bin) 
No=int(fNo)+l 

incre=int(float(bin)/2. + 0.5) 



il-0 

i2=bin-l 
sum=0 

do i=l,No 
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subrouti ne 

chs_sub(iwork_orig,iwork_2_orig,mszx_orig,mszy_orig,i res_r_x,i res_r_y, 
& i res_l_x , i res_l_y, num_l, num_2 , 

& iyl.rulel.ixLru Ie2,iyl_rule2 ,ix2_rule2 ,iy2_rule2 , 

& i xl_rul e3 , i th_avgpi x) 



originaly coded by Takayuki Ishida in 1996 

Modified by Takayuki ishida, Jan. 5, 1998 

Add comments by Takayuki ishida, Jan. 22, 1998 

Modified by Qiang Li, enable it to process images with any matrix size 
Oct. 30. 1998 



implicit integer*4 (i-n) 



Function of this subroutine is to determine the cardiac edges for 
lung segmentation of the current image. 

(1) The current image (586 x 586 matrix size) is reduced to 65 x 65 
matrix size. 

(2) candidates of the heart edges are extracted initially by histogram 
analysis of the low-resolution image. 

(3) The feature analysis with edge gradient and edge orientation was 
applied for determination of the heart edges in the low-resolution 

(4) Then, the final heart edges on the original image are obtained 
based on edge detection. 



parameter 
parameter 
parameter 

image. (column) 

parameter 

image. (line) 

parameter 

image 

edge. (column) 

parameter 

image 

edge. (line) 



(mszx=586) 
(mszy-586) 
(mszx„500«S86) 

(mszy_500«S86) 

(mszx_sl=65) 



(mszy_sl«65) 



! Marix size of the current image. (column) 
! Marix size of the current image. (line) 
! Marix size of the current 

! Marix size of the current 

! Marix size of the low-resolution 

! for detection of the cardiac 

! Marix size of the low-resolution 

! for detection of the cardiac 



integer*2 iwork_orig(mszx_orig f mszy_orig) 
integer*2 iwork_2_orig(mszx_ong,mszy_orig) 



I current image 



integer*2 
i nteger*2 
i nteger*2 
integer*2 
integer*2 
i nteger*2 
integer*2 
i nteger*4 
integer*4 
i nteger*4 
integer*4 
i nteger*4 
integer*4 
realM 



! current image 



iwork(mszx_500,mszy_500) 
i work_2 (mszx_500 , mszy_500) 
iwt(586,586) 

img_65 (mszx_sl , mszvsl ) , i mq_500(mszx_500 , mszy_500) 
sb(mszx_sl ,mszy_sl) ,cardio(mszx_sl ,mszy_sl) 
nnO, nn2,nn3,nn4,ierr,ierr2 
nn,ma,mopt,naut,ihtwk,iwx,iwy 
ihistfO:1023) ,cand(mszx_sl ,mszy_sl) , jdist(5,100) 
cand2 (mszx_sl , mszy_sl ) 
i sub_r (100) , i sub_l (100) 
i res_r_x(100) , i res_r_y(100) 
i res_l_x (100) . i res_l_y (100) 
i_r(2,100),i_1(2,100) 
res_r_x(100) , res_r_y(100) 
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real*4 
real*4 
real*4 
real*4 

integer*2 



integer*2 

real*4 

realM 

integer*4 

integer*2 
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res_l_x (100) , res_l_y (100) 
sbdi r(ms2x_sl ,mszy_sl) ,lung_area,heart_area 
coef(21),coef2(21),ihstl6x(1024),ihstl6y(1024) 
cand_x_r (100) , cand_y_r(100) , cand_x_l (100) , 
cand_y_l (100) 

Rribcage(2,1215) .RribcageNo, ! R ribcage output 
Lribcage(2,1215) .LribcageNo, ! L ribcage output 
Rdiaph(2,1215),RdiaphNo, ! R diaphragm output 
Ldiaph(2,1215),LdiaphNo I L diaphragm output 
feature(50) ! landmarks of chest, from ribcage detection 
cf_rib_r(21),cf_rib_l(21) 
cf_dia_r(21),cf_di a_l(21) 
ix,iy,ix2,iy2,ierr3 
isbdir(mszx_sl ,mszy_sl) .Rindex.Lindex 



integer*4 
integer*4 
integer*4 



x-location 

integer*4 



ixLrule2,iyl_rule2 
ix2_rule2,iy2_rule2 



! upper-right location of mediastinum 
! upper-left of left cardiac edge 



ix!L_rule3(2,mszy_SOO) ! x-locations of cardiac edges 

! ixLrule3(l,SIZE586) -> right cardia 



iyl^rulel 
(ixl»rule2,iyLrule2) 



! ixl_rule3(2,siZE586) -> left cardiac 
! bottom of right cardiac edge 



x^< - Ox2_rule2,iy2_rule2) 



\ 



iyl_rulel 



c enlarge/reduce the size of image to 586*586 

c because the subroutine is designed to process this image size 

call Image_Scaling(iwork_orig, mszx_orig, mszy.orig, iwork, mszx_500, 
mszy_500) . . . , 

call Image_Scaling(iwork_2_orig, mszx_orig, mszy_ong, iwork_2, mszx_500, 
mszy_500) 

c 

C SET PARAMETERS 

c 

rati o=0.1 



I Threshold level for histogram area 



isbx=mszx_s1 
isby«=mszy_sl 



i_sty-16 
i_endy»48 



icenter-0 
i redoct-0 



I starting point of y for center box 
! end point of y for center box 

! Interval of sobel operation 

! Centering indicator 1 
! Centering indicator 2 
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copy img to 500x500 matrix 



do j»l,mszy_500 
do i-l,mszx_500 

img_500(i,j)=iwork(i ,j) 
iwt(i.j)-0 
end do 
end do 



Initialization 



do i -1,1024 
ihstl6xfi)=0 
ihstl6y(i)-0 



do i =1,100 




cand_x_r 


i)»0.0 


cand_y_r 


i)=0.0 


cand_x_l 


i)«0.0 


cand_y_l 


i)=0.0 


isub_r(i) 


=0 


isub_l(i; 


=0 


i res_r_x 


i)-0 


i res_r_y 


i)=0 


i res_l_x 


i)-0 


ires_l_y 


i)-0 


res_r_x( 


)=0.0 


res_r_y(i 


)-0.0 


res_l_x(i 


)*0.0 


res_l_yO 


)-0.0 


end do 





do i-1,21 

cf_dia_r(i)«0 
cf_dia_l(" 



2(1)-o 



do j-l,121S 
do i-1,2 
Rdiaph(i ,i)-0 
Ldiaph(i ,3)-0 
end do 
end do 

RdiaphNo-0 
LdiaphNo-0 

do i -1.100 

do i-1,5 

jdist(j,i)-0 

end do 
end do 



do j 
do 



* 1, isby 
i » 1, isbx 

img_65(i , j)=0 

sb(i ,j)=0 
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sbdir(i,j)-0.0 
end do 
end do 
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Ribcage and Diaphragm detection 



cal 1 1 ung_boundary (i mg_500 , mszx_500 , mszy_500 , feature , 
Rri bcage , Rri bcageNo , Lri bcage , Lri bcageNo , 
Rdi aph , Rdi aphNo , Ldi aph , Ldi aphNo , 
Ri ndex,Lindex.cf_rib_r,cf_rib_l , 
cf_dia_r,cf_dia_l) 
do 1-1,10 

write(*,333) cf_rib_r (i ) , cf_rib_l (1 ) 
end do 

format (2fl0.4) 

call diaphragrtudetection (img_5OO,mszx_5O0,ms2y_5OO, feature, 
Rdi aph , Rdi aphNo , Ldi aph , Ldi aphNo , cf_di a_r , cf_di a_l ) 



Diaphragm detection Failure indication 

min_y_l - 10000 
do i-l,LdiaphNo 

if(Ldia P R(2.i).lt.min_y_l) mi n_y_l=Ldi aph(2 , i ) 
end do 

if (mi n_y_1 .eq. 10000) then 

write(*,*) 'Failed in Left diaphragm detection' 

mi n_y_l -f eatu re (2) 
end if 



Determine lungbottom and midline 



1 ungbottom-i nt (f 1 oat (f eatu re (2) )/9 . 0+0 . 5) 
lungbottom_l-int (float (mi n_y_l)/9.0+0. 5) 
if Cicenter.eq.O) midline-32 

if (icenter.eg.l) midline-int(float(feature(8))/9.0+0. 5) 
if (abs(int(fToat(feature(8))/9.0+0.5)-32).ge.5)_ 



_stx-midline-16 
_endx-midline+16 



midline*int (float(feature(8))/9.0+0.5) 



! starting point of x for center box 
! end point of x for center box 



REDUCE IMAGE USING AVERAGE (63 X 76) 



istep-9 
i cty-0 

do i -1 , (mszy_500/i step) *i step , i step 
icty-icty+1 
ictx-0 

do i*l, (mszx_500/istep)*istep,istep 
ictx-ictx+1 
i total -0 



do m-j , j+istep-1 
do 1-i,i+isl 



istep-1 

itota1-itotal+img_500(l ,m) 
end do 
end do 

avgres-float(itotal)/float(istep**2) 
i mg_65 (i ctx , i cty)=avgres 
end do 
end do 
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MAKE HISTOGRAM 
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do 11-0,1023 

ihist(ll)=0 
end do 

do j » i_sty, i_endy 
do i = i_stx, i_endx 
ih«img_65(i,i) 
ihist(ih)=ihistCih)+l 
end do 
end do 

ihct-0 

do 11*0,1023,16 

iwk=ihist(il)+i hist(n+l)+ihist(ll+2)+ihist(n+3)+ 
& ihist(n+4)+ihistflT+5)+ihist(n+6)+ihist(n+7)+ihist(ll+8) + 
& ihist(ll+9)+ihist(H+10)+ihist(ll+ll)+ihist(n+12)+ 
& ihist(n+13)+ihist(ll+14)+ihist(ll+15) 
ihct-ihct+1 

ihstl6x(ihct)=float(ll) 
ihstl6yCihct>float(iwk) 
end do 

SMOOTHING HISTOGRAM (original histogram bin-16) 

nn=ihct+2 

ma=»5 

do 1-1.2 

call smoothCihstl6y,nn,ma) 
end do 

SEARCH TOP OF MOUNTAINS 

do i»l,ihct 
if (int(ihstl6y(i)) .gt.O) then 
ist- i 
goto 998 
end if 
end do 

I do i-ihct,l,-l 

if (int(ihstl6yO)).gt.O) then 
ien=* i 
goto 999 
end if 
end do 



999 idivide«(ien-ist)/2+ist 

max_halfl=-10000 
do ll=l,idivide 
if (ih5tl6y(H).gt.maxJialfl) then 
max_halfl=ihstl8y(ll) 
istart-11 
end if 
end do 

max_half2 — 10000 
do ll=idivide+l,ihct 
if (ihstl6y(ll).gt.max_half2) then 

max_half2=-ihstl6y(ll) 

iend-11 
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end if 
end da 
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SEARCH THRESHOLD VALUE FOR HEART EDGE CANDIDATES 

imi nimumx=10000 
i mi nimumy- 10000 
do 11-istart+l iend-1 
if Cihstl6y(ll).le.iminimumy) then 

i mi ni mumx-i hstl6x (1 1 ) 

ist-11 

istorg=ist 

i mi ni mumy=i hstl6y (1 1 ) 
end if 
end do 

writeC*,*) , pl,p2,low,high.tani ' ,max_halfl, 
& max.hal f 2 , i start*16 , i end*16 , i st*16 

ith_avgpi x-ist*16 

FEATURE OF HISTOGRAM 

write(*,*) 'feat' ,float(max_halfl)/float(max_half2) , 
& float(i st-istart)/float(iend-i start) , truth(i p) 

if (float(ist-istart)/floatCiend-istart).lt.0.34.and. 
& float(>axjialfl)/float(rnax_half2).lt.0.7) then 

ist»(i end-i start)/2+i start 



end if 

determine ratio of regions LUNG vs HEART 

do 11-l.ist 

lung_area=«l ung_area+i hstl6y CI 1 ) 
end do 

heart_area=((33.*39.)-1ung_area)/(33.*39.) 

lung_area=lung_area/(33.*39.) 

wri te(* , *) heart_area*100 , 1 ung_area*100 

write histogram 



writeC*,*) ' ' 
do 11-2, ihct 



writeC 1 
end do 



,*) ihstl6x(ll), ihstl6y(ll) 



determine range for detection of heart edge candidates 
conti nue 

i area»i hstl6y (i st) 

wkl«float(i_endx-i_stx+l)*float(i_endy-i_sty+l) 
do k-1,10 

i area-iarea+i hstl6y(i st+k)+i hstl6y(ist-k) 
if (float(iarea) .gt.wkl*ratio) then 
istart=ihstl6x(ist-k) 
iend=ihstl6x(ist+k) 
writeC*,*) k, ihstl6yCist) 
goto 5000 
end if 
end do 

HEART EDGE CANDIDATES BY USING TWO THRESHOLDS 
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conti nue 
do j » 1, isby 
do 1 =. 1. isbx 
candCi,j)=0 
cand2Ci,j)»0 
end do 
end do 



do j ■ 
do 



_sty, i_endy 
i_stx, i_endx 
if (img_65(i , j) .ge.i start) candCi,j)-l 
if (img_6SCi , .ge.i end) cand2 0 ■ j)=l 
end do 
end do 

[B] MORPHOLOGICAL FILTERING 



call epct2 Ccand , cand, isbx, isby, 2, isbx-1, 2, i sby-1, nco, 0,1) 
call epct2 Ccand, cand, isbx, isby , 2 , isbx-1, 2 , i sby-1, nco, 1, 1) 

call epct2fcand2 ,cand2 , isbx , isby , 2 , isbx-1 , 2 , i sby-1, nco.O, 1) 
call epct2(cand2 ,cand2 , isbx, isby ,2 , isbx-1, 2 , i sby-1, nco, 1, 1) 

call epct2Ccand,cand, isbx, isby, 3 , i sbx-2 , 3 , isby-2 , nco, 0, 1) 
call epc t2 (cand, cand, isbx, isby, 3, i sbx-2 , 3 ,i sby-2 , nco, 1, 1) 

call epc t2 (cand2 ,cand2 , isbx, isby , 3, i sbx-2 , 3, isby-2 , nco, 0, 1) 
cal 1 epct2 (cand2 , cand2 , i sbx , isby , 3 , i sbx-2 , 3 , isby-2 , nco ,1,1) 

SUBTRACT BETWEEN TWO BINARY IMAGES 

do j ■ i_sty+l, i_endy-l 
do i * i_stx+l, i_endx-l 

candCi , j)«cand(i , j)+cand2Ci , j) 
if Cj ■ lt.lungbottom) then 
if Ccand(i , j) .eq.2) then 
if (candCi ,i-l) .eq.O.or . 
candfi-1, j) .eq.O.or. 
candCi +1,]) .eq.O.or. 
cand(i , j+1) .eq.0) then 
candCi ,))"! 
end if 
end if 
end if 

if (j.gt.lungbottom+4) candCi, j)*0 
end do 
end do 



Sobel operation 



3 X 3 



call sobel 2(img_65, sb.sbdi r . i sbx , isby , i sbi nt) 
call writeimage(sb, 'sb.img , isbx, isby) 
do j - l.isby 
do i - 1, isbx 

isbdir(i,j)=intCsbdirCi,j)*3) 

end do 
end do 

call wri tei mage Ci sbdi r, 'sbdi r. img' , isbx, isby) 



FEATURE ANALYSIS 

do j - i_sty+l, i_endy-l 
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do i - i_stx+l, i_endx-l 
if Ccand(i.j).eq.l) then 
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Edge gradient Coutput from sobel filter) 

".jj-o" 



if (sb(i,j).lt.300) then 
cand(i , "* 

end if 



Edge orientation (output from sobel filter) 

if Ci -It. midline) then 

if Csbdir(i.j).gt.20.and.sbdirCi,j).le.320) then 
cand(i , j)=0 

end if 
else 

if Csbdir(i.j). gt.O. and. sbdi r(i , j) . le . 160) then 
candCi , j)-0 

end if 

if CsbdirCi 1 j).gt.240.and.sbdirCi,j).le.36O) then 
cand(i , j)=0 

end if 
end if 

else 

cand(i , j)=0 
end if 
end do 
end do 



do j - i_sty+l, i_endy-l 

write(\ 555) (cand(i , j) , i»i_stx+l,i_endx-l) 
end do 

format (63il) 



end of feature analysis 



write features 



1212 
1213 



i cou-0 

do j - i_sty+l, i_endy-l 
do i * i_stx+l, i_endx-l 
if (cand(i ,j) .eq.l) then 
icou*icou+l 

write(*,1212) i cou ,i , img_65(i , j) , sb(i , j) , int(sbdi r(i , j)) 

end if 
end do 
end do 

formatf 'www' ,i6, i 6, i6, i6 , i 6) 
format(4i6) 



fitting for Right and Left heart lines 



number_r-0 
number_l»0 



do j « i_sty+l, i_endy-l 
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do i » i_stx+l, midline-1 
if (cand(i , j) .eq.l) then 
numbe r_r*number_r+l 
cand_x_rf number_r)=float( i ) 
cand_y_r ( numbe r_r)-float(j) 
end if 
end do 
end do 

nnO*number_r 

nn2=4 

nn3=3 

nn4«0 

ierr=0 

cal 1 Kofi tc2 (cand_y_r , cand_x_r . nnO , nn2 , coef , nn3 , nn4 , i err) 
—-************** 



mi n_y_r- 1000 
max_y_r=-1000 
do i « 1, numbe r_r 
i f (i nt(cand_y_r(i ) ) . gt . max_y_r) 

max_y_r=i nt (cand_y_r (i ) ) 
if (int(cand_y_r(i)) .lt.min_y_r) 

mi n_y_r=i nt (cand_y_r (i ) ) 

end do 

********************** 

ESTIMATE FOR RIGHT 
************************* 

numbe r_r*0 

do i ■ min_y_r, max_y_r 
number_r=number_r+l 
iwy»i 



cal 1 polyfi tc_i ntegerfiwy, coef , nn3, iwx) 
cand_x_r (numbe r_r)=fl oat Mwx) 
cand_y_r ( numbe r_r)*fl oat (i) 




raax_x_r-i nt ( c and_x_ r ( numb e r_ r ) ) 



FITTING FOR LEFT 



do j - i_sty+l, i_endy-l 
do i « midlme+1, i_endx-: 
if (cand(i, j).eq.l) then 



number_l -number_ 1 +1 
cand_x_lfnumber_l)-float(i) 
cand_y_! (numbe r_1)=fl oat (j) 
end if 
end do 
end do 

nn0*=number_l 

nn2=4 

nn3-3 

nn4=0 

ierr2«0 

call kofitc2(cand_y_l ,cand_x_l , nnO, nn2 , coef 2 , nn3 , nn4 ,i err2) 
if (number_r. le . 11. or, number. 1 . le.ll) then 

i redoct=i redoct+1 

if (i redoct.eq.l) then 

write(*,*) 'Too small number of data for fitting : redi 
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ist-istorg 
goto 6500 
end if 
end if 
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min & max 



mi n_y_l-1000 
max_y_l«-1000 
do i = 1, number_l 



i f (i nt (cand_y_l (i ) ) . gt . max y_l ) 
& max_y_l =i nt (cand_y_l (i ) ) 

i f (i nt (cand v_l (i ) ) . 1 1 . mi n_y_l ) 
& mi n_y_l=i nt (cand_y_l (i ) ) 

end do 



numbe r_l=0 

do i ■ mi n_y_l , max_' 
number_l=number. 
iwy-i 

call polyfi tc_i nteger(iwy , coef 2 , nn3, iwx) 



ax_y_l 
er_l+l 



cand_x_l (numbe iwx) 
cand_y_l (number.! ) *f 1 oat (i ) 



max x 

***************************** 

max_x_l *i nt (cand_x_l (numbe r_l ) ) 

do i«=l,number_l 

img_6S (i nt (cand_x_l (i ) ) , i nt (cand_y_l (i ) ) )=102 3 

end do 

do i»l,number_r 

img_65(int(cand_x_r(i)) ,int(cand_y_r(i)))»1023 

end do 

call writeimage(img._65 1 'img65.img' .isbx.isby) 

write(*,*) Mend; \iend 

EXPAND to Bottom 

icou_r=0 
icou_l=0 

if (rrax_y_r.gt.i_endy-3.or.max_y_1 .gt.i_endy-3) then 
write(*,*) r through rule #1; expand to bottom' 
iparal=0 
ipara2»2 
ipara3-0 
ipara4=2 
i rx«max_x_r 
i ry=max_y_r 

icou_r= number_r-iparal 
next_irx= int(cand_x_r(icou_r)) 
do j=i ry+i paral, lungbottom 
i max =-10000 

do i=next_irx-ipara2, next_i rx+i para4 

i f (sbdi r(i , j) .ge.O.and.sbdi r(i ,j) .le.20.or. 

sbdi r (i , 1 ) . ge . 320 . and . sbdi r (i , j ) . 1 e . 360) then 
i_org=*img_65(i , j-l)+img_65(i ,i)+img_65(i , j+l) 
i_next=img_65(i+l, j-l)+img_65(i+l,;])+img_65(i+l, j+1) 
isub=(i_next-i_org)/3 
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1200 



chs_sub.f 
if(isub.ge.imax) then 
imax-isub 
next_i rx=i 
end if 
end if 
end do 

if (i max. eq. -10000) goto 1199 

cand_x_r(icou_r)*"float(next_i rx) 

cand_y„r(icou_r)-float(j) 

icou_r*ncou_r+l 

end do 
continue 

i paral=0 
ipara2*2 
ipara3=0 
i para4=2 
i lx=max_x_l 
ily=max_y_l 

icou_l- number_l-ipara3 
next_ilx= i nt(cand_x_l (i cou_l)) 
do i=i ly+ipara3, lungbottom 
imi n= 10000 

if(img_65(next_ilx,i) . gt, iend .or . sb(next_i Ix , j). 
It. 400) then 
if(img_6S(next_ilx, j) .gt.iend) then 
ipara2=6 



else 



ipara2=_ 
ipara4=0 



ipara2~2 
ipara4=2 
end if 

do i-next_ilx-ipara4, next_ilx+ipara2 

cal 1 pol yf i tc_i nteger (i wy , cf_ri b_l , nn3 , i wx) 
if (i*9.gt.iwx) goto 44 
if (sbdir(i,i).ge.l50.and.sbdirCi ,j).le.2S0) th 
i_org=img_65(i.j-l)+img_65(i. j)+img_65(i ,j+l) 
i_next=.img_65(Ul,j-l)+img-6SCi+l,3)+img_6S(i+l, 
isub«(i_next-i_org)/3 
if (isub.le.imin) then 
imi n=i sub 
next_ilx-i 
end if 
end if 
continue 
end do 



then 
j+l) 



ena ao 

if (imin. eg. 10000) goto 1200 

cand_x_ I (i cou J ) «*f 1 oat (next_i 1 x) 
can d_y_l(icou_l)-float(j) 



cand_y_l . .. 
icou_l»icou_l+l 
end do 
continue 
goto 5500 
end if 



EXPAND to Right 



i f (max_x_r . 1 1 . i _stx+3 . and .max_y_r . 1 1 . i_endy- 3) 
write(*,*) 'through rule #2; expand to right' 
iparal-0 
ipara2=2 
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chs_sub.f 

i para3=0 
i para4»2 
i rx«=max_x_r 
i ry»max_y_r 

icou_r- number_r-iparal 
next_irx- int(cand_x_r(icou_r)) 
do i*iry+iparal,lungbottom 
i max— 10000 

do i=next_irx-ipara2, next_i rx+ipara4 

if (sbdirfi ,j) .ge.O.and.sbdi r(i,i).le.20.or. 

sbdi r(i,]).ge. 320. and. sbdi r(i,j).le. 360) then 
i_org=img_65(i , j-l)+img_65(i ,i)+img_65(i , i+1) 
i_next-img_65Ciil ( j-l)+img_65ti+l,3)+img_65(Ul 1 j+l) 
isub=Ci_next-i_org)/3 
if(isub.ge.nmax) then 
imax«isub 
next_i rx»i 
end if 
end if 
end do 



if (imax.eq. -10000) goto 1201 

cand_x_r(icou_r)=floatCnext_i rx) 
cand_y_r(icou_r )-float(j) 
icou_r=icou_r+l 



end do 
1201 continut 
end if 



EXPAND to Left 



if (max_x_l ,gt.i_endx-3.and.max_y_l . It . i_endy-3) then 
write(* p *) through rule #3; expand to left' 
iparal>0 
ipara2=2 
ipara3=0 
i para4-2 
i 1 x=max_x_l 
i ly=max_y_l 

icou_l= number_l-ipara3 
next_ilx* i nt(cand_x_l (i cou_l )) 
do j=ily+igara3,lungbottom 

i f(img_65(next_ilx,i). gt.iend. or. sb(next_ilx, j). 
It. 400) then 
if(img_65(next_ilx,j).gt.iend) then 
ipara2=6 
i para4=0 

else 

ipara2=2 
ipara4=2 

end if 

do i=next_ilx-ipara4, next_ilx+ipara2 

call polyfi tc_integer(iwy,cf_rib_l ,nn3,iwx) 
if(i*9.gt.iwx) goto 45 
if (sbdir?i f i).ge.l50.and.sbdirCi,j).le.250) then 
i_org=i mg_65 (i , j -l)+i mg_65 (i , j )+i mg_65 (i , j+l) 
i_next=iSg_65(i + l 1 j-l);img_65?i + l,j) + imgj5(i + l,j + l) 
isub-(i_next-i_org)/3 
if(isub.le.imin) then 
imi n=isub 
next_i lx«i 



chs_sub.f 

end if 
end if 
continue 
end do 

if (imin. eg. 10000) goto 1202 

cand_x_Tficou_l)«float(next_.ilx) 
cand_y_l (icou_l)-float(j) 
icou_J=icou_l+l 

end do 
continue 
end if 

Redo right 

continue 
icou_r=icou_r-l 
icou_l=icou_l-l 
***************************** 

Renewed max R 
***************************** 

i i i r-max (i cou_r , number_r) 
max_y_r»i nt(cand_y_r(i i i r)) 
if (lungbottom-max_y_r.ge.6) then 
write(*,*) 'through rule #4; search heart edge R ' 
iparal=0 
ipara2=2 
ipara3»0 
ipara4-2 
ihalf-8 

i cou_r-i i i r-i hal f 
i rx-i nt(cand_x_r(i cou_r)) 
i ry*int(cand_y_r(icou_r;) 
do kk*icou_r,iii r 

cand_x_r(kk)-0.0 
end do 

next_irx=> irx 

do }~iry+iparal, lungbottom 
-imax-=-10000 

do i=next_i rx-ipara2 , next_i rx+i para4 

if (sbdi r(i ,j) .ge.O. and . sbdi r(i ,j).le.20.or. 

sbdir(i , J) .ge . 320 . and .sbdi r(i ,j) . le. 360) then 
i_org-img_65(i , j-l)+img_65(i , j)+img_65(i , j+1) 
i_next=img_65(i+l,n-l)+img_6SCi+l,])+i'ng-65Ci+l 1 j+1) 
isub-(i _next-i_.org )/3 
if (isub.ge.imax) then 
imax=isub 
next_i rx=i 
end if 
end if 
end do 

if fi max. eq. -10000) goto 7777 
cand_x_r(icou_r)-f loat(next_i rx) 
cand_y_r (i cou_r ) «f 1 oat( j ) 
i cou_r-i cou_r+l 

end do 
continue 
end if 

***************************** 
^Renewed^max^^ 

i i i 1 »max (i cou_1 , numbe r_l ) 

m ax_y_l * i nt ( c and_y_l ( i i i 1 ) ) 

if (lungbottom-max_y_l .ge.6) then 
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write (* 
iparal=0 
i para2 = 2 
i para3=0 
ipara4=2 
ihalf-0 

icou_l-i i i 1 -i half 



chs_sub.f 

through rule #5; search heart edge L ' 



i 1 x-i nt(cand_x_l ( i cou_1 ) ) 
i 1 y-i nt (cand_y_l (i cou_l ) ) 
do kk=icou_l . lungbottom 



cand_x_1(kk)=0.0 
end do 

next_ilx- ilx 

do j=ily+iparal, lungbottom 
imi n=10000 

if(img_6S(next_ilx,i).gt.iend.or.sb(next_ilx, j) . 
It. 400) then 
i f (i mg_6S (next_i 1 x , i) . gt . i end) then 
i2=6 



else 



ipara2=i 
ipara4*=0 



ipara2«2 
ipara4=2 
end if 

do i-next_ilx-ipara4, next_i1x+ipara2 

sen 

call polyfitc_integer(iwy,cf_rib_l ,nn3,iwx) 
if (i*9.gt.iwx) goto 46 
if (sbdir(i , j) .ge.l50.and.sbdir(i , j) . le . 250) then 
i_org=img_65(i , j-l)+img_65(i , i)+img_65(i ■i+1) 
i _next-i mg_65 (l +1 , l -l)+i mg_65 (i +1 , j) +i mg_65 (i +1 , j+1) 
isub»(i_next-i_o rg)/3 
i f (i sub . 1 e . i mi n) then 
imi n»isub 
next_i lx=i 
end if 
end if 
conti nue 
end do 

if (imin. eg. 10000) goto 7778 

cand_x_T(icou_.l)»float(next_ilx) 



i cou_l 

end do 
conti nue 
end if 



cand_x_T(icou_l)»float(nex 
cand v 1 (i cou_l ) -f 1 oat ( j ) 
icou_l=icou_l+l 



******** 



max 



again 



Renewed 
******** 

icou_r«icou„r-l 
i i i r-max (i cou_r , number_r) 
i f (cand_x_r(i i i r-10)-cand_x_r(ii i r-1) .ge . 4) then 
write(*,*) 'through rule #6; search heart edge R' 
ihalf-8 

i cou_r=i i i r-i hal f 
irxeint(cand_: 
iry-intCcanr 1 



and_x_r(icou_r)) 
and_y_r(icou_r)) 
u_r, lungbottom 



do kk=icou_r,1ungboti 
cand_x_r(kk)-0.0 
end do 

next_irx= irx 
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do j»i ry, lungbottom 
imax=-10000 
do i=next_irx-2, 
if (sbdirfi.J; 
sbdi r(i , ] 



i_next-img_65(i+l 
isub-(i_nex 



.ge.O. and . sbdi r Ci , j ) . 1 e . 40 . or . 
. ge_. 300 . and .sbdi r fi , j ) . 1 e . 360} then 



.org»img_65(i,j-l)+img_65(i,j)+Tng-65(i ,i+l) 

: ._ * i) + i mg _ 65( i + ij) + imgj5(i+l,j+l) 



g_65(i+l,i 

ext-i_org), 

if (isub.ge.imax) thi 
imax«=isub 
next_i rx-i 
end if 
end if 
end do 

if (i max. eq. -10000) goto 6777 

cand_x_r(icou_r)«float(next_i rx) 

cand_y_r(icou_r)=float(j) 

icou_r-icou_r+l 

end do 
continue 
end if 



Renewed max L again 
*************************** 

i i i 1 -max (i cou_l , numbe r_l ) 
1 ungbottom-max (1 ungbottom , 1 ungbottom_l ) 
max_y_l=int(cand_y_l (iii 1)) 
write(*,*) 'through rule #7; search heart edge L' 
icou_l=iiil 

i 1 x=i nt (cand_x_l ( i cou_l ) ) 
i ly-i nt(cand_y_l (icou_1 )) 
do kk-i cou_l , 1 ungbottom 

cand_x_l(kk)=0.0 
end do 

next_.il x- ilx 
do i-ily, lungbottom 
imi n-10000 

i f (img_65 (next_i 1 x , i ) . gt . i end . or . sb (nex t_i 1 x , j ) . 
It. 400) then 
if(img_65(next_ilx,j) .gt.iend) then 
ipara2-6 
ipara4=0 

else 

ipara2=2 
ipara4=2 

end if 

do i-next_i*lx-ipara4, next_.il x+ipara2 

SST 

cal 1 polyfi tc_i nteger(iwy , cf_ri b_l , nn3 , iwx) 
if(i*9.gt.iwx) goto 47 
if (sbdir(i , j) .ge. 150. and .sbdi r(i , j) .le.250) then 
_org=img_65(i , j-l)+img_65(i ,i)+img_6S(i , j+1. 

' 65(i+lo)+img„65i 



J next=img_65(i+l,i-l)+img_65ti+lo)+img„65(i+l, j+1) 
isub«=(i_next-i_org)/3 
if(isub.le.imin) then 
imi n-isub 
next_.il x-i 
end if 
end if 
continue 
end do 

if (i mi n.eq. 10000) goto 7878 

Page 15 



7878 



chs_sub.f 

if (abs(next_ilx-cand_x_l (icou_1-l)) .ge.2) 
cand_x_l (i cou_l )=f loat(next_i lx) 
cand_y_l(icou_l)-float(j) 



goto 7878 



cand_y_. x 
icou_l-icou_l+l 
end do 
conti nue 



PRINT DETECTED CARDIAC I 



icou_r-icou_r-l 
icou_l-icou_l-l 
do j - 1, isby 
do i « 1. lsbx 

cardio(i,j)=0 
end do 
end do 

i i i r-max (i cou_r , number_r) 

ii i l=max(i cou_l , number_l) 

do i-l,iiir 

nxl=int(cand_x_r(i)) 

m' -i nt (cand_y_r(i ) ) 
nxl . ne . 0 . and . nyl . ne . 0) cardi o(nxl , nyl)-l 

end do 

do i-l ( iiil 

nx2=i nt (cand_x_l (i )) 
ny2=i nt (cand_y_l (i ) ) 
if (nx2 .gt.max_rib_l) cardi o(nx2,ny2)-0 
i f (nx2 . ne . 0 . and . ny2 . ne . 0) cardi o(nx2 , ny2)-2 
end do 

do i -1, Rdi aphNo 

cardio(Rdnaph(l,i)/9,Rdiaph(2,i)/9)-3 
end do 
do i=l,Ldia 

card'' 
end do 
do j=l.mszy_sl 

write(*,Hl) (cardio(i.j), i=l,mszx_sl) 
end do 

format (65il) 



=l,Ldi aphNo 

irdio(Ldiaph(l,i)/9,Ldiaph(2,i)/9)- 



determine distance between It and rt heart edge 

kct=0 
do j - 1, isby 

idist_rx=0 

idist_lx-0 

do i - 1, isbx 

if(cardio(i ,j).eq.l) idist_rx=i 
if (cardio(i , q J .eq.l) idist_ry»j 
if(cardio(i ,]1 ,eq.2) idist_lx-i 
if (cardio(i , j) .eq.2) idist_ly-j 

end do 

if(idist_rx.ne.0.and.idist_lx.ne.O) then 
kct=kct+l 

idist=idist_lx-idist_rx 

idist(l,kct)-idist 

idist(2,kct)=idist_rx 

]dist(3 1 kct)-idist_ry 

3dist(4,kct)-idist_lx 
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end 
end do 



jdistC! 
end if 



5,kct)-idist_ly 



chs.sub.f 



if (jdist(l,k).le.lO) then 

cardio(]dist(2 p k),jdist(3,k))=3 
cardio(jdist(4,k),jdist(5 ( k))«4 



if (jdist(l.k)-idist(l.l).le.2) 
cardioCidistfJ.k^id^stO.k)). 
cardioUdisti^.kS.jdistO.k)). 



then 

3 



else 

goto 7 
end if 
end if 
end do 

do j ■ 1, isby 

ifCj.le. jdist(3,l).or.j.le. jdist(5,l)) then 
do i » 1, isbx 

if(cardio(i ,i) .eq.l) cardio(i , j)=3 
iffcardioCi J) .eq,2) cardio(i , j)-4 
end do 
end if 
end do 

do k-1,100 

i_r(l,k)«0 
i_r(2,k) 



i_l(l,k)=0 
i_l(2,k5=0 



nuiru.-i.-u 
num_2=0 

do i - 1, isby 
do i * 1, isbx 



if(cardio(i,j).eq.l) then 
num_l»nun_l+l 
i res_r_x(num_l)«i 
i re s_ r_y ( nu m_l) - j 
i_r(l,num_l)=i 
i_r(2,nunL.l)"=j 
end if 

if(cardio(i , j) .eq.2) then 
num_2«num_2+l 
i res_l_x(num_2)=i 
i res_l_y(num_2)»j 



end if 
end do 
end do 



i_l(l,num_2)=.i 
'_l(2,num_2)=j 



Do if number of data point is over 10. 6/25/99 
by Taka Ishida 

if (nunu2.gt.10) then 
do 1-1,5 

if (-i_Ul,num_2)-i_l(l,num_2-l).gt.5) then 
num_2»num_2-l 
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writeC*,*) 

end if 
end do 
end if 



chs_5ub.f 
minus T ,1 



' num_l , nuni_2 ' , num_l , num_2 
goto 888 



writeC*,*) 
i center. eq.l) goto ooo 
!num_l. It. 10. or. num_2.lt. 10) then 
wH rpf * . *"> 'Too small number: 



Too small number; centering : redo' 



if (icenter.eq/ 
if (num_l.lt. 10. 
wri te(*,*) 
icenter=l 
goto 5 

end if 
888 continue 

i cou_r-0 
number_r=0 
max_x_r= 10000 
max_y_r=- 10000 
icou_l=0 
number_l-0 
max_x_l =10000 
max_y_l=-10000 

do i=l.LdiaphNo 
c i locx-i nt (f 1 oat (Ldi aph(l , i ) )/2 . +0 . 5) 

c ilocy-int(float(Ldiaph(2,i))/2.+0.5) 
ilocx-Ldiaph(l,i) 
ilocyLdiaph(2,i) 
iworkl2 (i locx , i 1ocy)=l020 
end do 

do i-l.RdiaphNo 
c ilocx«int(float(Rdiaph(l,i))/2.+0.5) 
c ilocy=int(float(Rdiaph(2,i))/2.+0.5) 
ilocx=Rdiaph(l,i) 
ilocy=Rdiaph(2,i) 
TWO rk_2(ilocx,i1ocy)»=l020 
end do 

do i=l,num_l 

i resx«i res_r_x( 
i resy*i res_r_y(- 
do m-(iresx-l)*9-8,(iresx-l)*9+20 
i_org=0 
i_next=»0 
isub=0 

c img_500((iresx-l)*9-8,(iresy-l)*9+4)*1020 
c img_500((iresx-l)*9+20,(iresy-l)*9+4)=1020 
do k=(iresy-l)*9+4-4, (i resy-l)*9+4+4 
i_org=»i_org+ 

(-(img_5OOCm-10,k)+2.*img_500(m-9,k) 
+3 . *img_500(m-8, k)+4 . *img_500(m-7 , k) 
+5 . *img_500(m-6, k)+6 . *img_500(m-5 , k) 
+7 . *i mg_500(m-4 , k)+8 . *img_500(m- 3 , k ) 
+9. *img_500(m-2 , k)+10. *img_500(m-l, k 
+(10. *img_500(m+l, k)+9. *img_500(m+2 , k) 
+8.*img_500(m+3,k)+7.*' 
+6 . *i mg_500(m+5 , k )+5 . ' 
+4 , *img_500(m+7 , k)+3 . ' 
+2.*img_500(m+9,k)+ 
end do 

isub_r(m)=i_org 
end do 



38 

,(iresx-l)*< 



k)) 



*img_500(m+4,k) 
*img_500(m+6,kj 
,*img_500(m+8,k) 
img_500(m+10,k)))/660. 
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chs_sub . f 

imax*-10000 

do ii=(iresx-l)*9-8,(iresx-l)*9+20 
if(isub_r(ii).gt.imax) then 
' Jb_r?ii) 



imax=isub_ 
ixx=ii 

^iy^-(iresy-l)*9+4 



end 
end do 

ires_r_x(i)=ixx 
ires_r_y(i)=*iyy 
res_r_x(i)=float(ixx) 
res_r_y (i )«float(iyy) 
img_500(ixx,iyy)=>0 
i mg_500(i xx+1 , i yy)=0 
i mg_500(i xx , i yy+l)«0 
i mg_500 (i xx+1 , i yy+1) =0 

end do 

write(l,*) num_2 
do i=l,num_2 

i resx=i res_l_xfi) 
i resy»i res_l_y(i) 
if (i.lt.6) then 
ixl— 8 
ix2-8 
else 

ixl— 8 
ix2=20 
end if 

do m«(iresx-l)*9+ixl,(iresx-l)*9+ix2 
i_org«0 
i_next=0 
i sub=0 

img_500((iresx-l)*9+ixl, (i resy-l)*9+4)-1020 
img_500((iresx-l)*9+ix2, (iresy-l)*9+4)-102O 
do k-(i resy-l)*9+4-4, (iresy-l)*9+4+4 
i_org»i_org+ 

(- (i mg_500(m-10 , k) +2 . *i mg_500(m-9 , k) 
+ 3 . *i mg_500(m-8 , k) +4 . *i mg_500f m-7 , k) 
+ 5 . * i mg_500 (m- 6 , k) +6 . * i mg_500 Cm- 5 , k) 
+7.*img_500(m-4,k)+8.*img_500(m-3,k) 
+9 . *i mg_500(m-2 , k) +10 . *i mg_500(m-l , k)) 
+ (10 . *i mg_500 f m+1 , k) +9 . *i mg_500(m+2 , k) 
+8 . *i mg_500 (m+3 , k)+7 . *i mg_500(m+4 , k) 
+6 . *i mg_500(m+5 , k) +5 . *i mg_500(m+6 , k) 
+4 . *i mg_500 (m+7 , k) +3 . *i mg_S00(m+8 , k) 
+2 . *i mg_500 (m+9 , k)+ i mg_500 (m+10 , k) ) ) /660 . 
end do 

isub_l(m)-i_org 
end do 
imi n« 10000 

do ii«(iresx-l)*9+ixl,(iresx-l)*9+ix2 
if(isub_l(ii).lt.imin) then 
imi n=isub_l(ii) 
ixx=ii 

iyy=(ires_l_y(i)-l)*9+4 
end if 
end do 



i res_l_x(i)*i 
ires_l_y(i)=iyy 



res_l_x(i)=float(i — , 
res_l_y(i )«float (iyy) 
write(l,*) ixx.iyy 
img_500(ixx,iyy)=0 
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end do 



img_500(i xx+1, iyy) »0 
i mg_500 (i xx , i yy+1) =0 
i mg_500 (i xx+1 , i yy+1) =0 



fitting for Right and Left heart lines 
***************************** 

FITTING FOR RIGHT 
***************************** 

do i-1,21 

coef(i)«0 
end do 
nn0«num_l 
nn2«4 
nn3-3 
nn4-0 
ierr-0 

" tc2(res_r_y. 
**************************** 

ESTIMATE FOR RIGHT 
***************************** 

i rt_mi n*10000 
do i =1, num_l 
iwy=ires_r_y(i) 
cal 1 polyfi tc_i nteger(iwy , coef . nn3 , iwx) 
ires_r_x(i)-iwx 

if (ires_r_x(i).lt.irt_inin) i rt_mi n-i res_r_x(i) 
write(*,*) 'rt'.iwx.iwy 
end do 



FITTING FOR LEFT 



do 1=1,21 

coef2(i)=0 
end do 
nn0-num_2 
nn2«4 
nn3=3 
nn4=0 
i err2*0 

call kofi tc2 (res_l_y , res_l_x , nnO, nn2 , coef 2 , nn3 , nn4 , i err2) 
***************************** 



ESTIMATE FOR LEFT 



(i res_l_x(i ) . gt . i 1 t_max) i 1 t_max-i res_l_x(i ) 
ite(*,*) 'lt'.iwx.iwy 



ilt_max*- 10000 
do i » l,num_2 

iwy=ires_l_y(i) 
cal 1 polyfi tc_i nteger (ivsry , coef 2 , nn3 , i wx) 
ires_l_x(i)=iwx 

if r 

writ 
end do 

open (l,file='cardio') 
write(l,*) num_l 
do i-2,num_l 

wri te (1 , *) i res_r_x(i ) , i res_r_v (i ) 
iwork_2(i res_r_x(i) , i res_r_y(i))=1020 
iwork_2(ires_r_x(i}+l,ires_r_y(i))-1020 
iwork_2(ires_r_xfi) , i res_r_y(i)+l)-1020 
iwork_2(ires_r_x(i)+l,i res_r_y(i)+l)-1020 
ix=ires_r_x(i) 
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iy-i res_r_y(i ) 
ix2»ires_r_xfi-l) 
iy2*i res_r_y(i-l) 
call line3(iwork_2,msz 
call line3(iwt,msz: 
end do 

write(l,*) num_2 
do i»2,num_2 



chs_sub.f 



mszy , ix,iy 
mszy,ix,iy,ix2 



ix2,iy2,ierr3) 
iy2,ierr3) 



writeCl *) ires_l_x(i),ires_l _y(i) 
work_2Mres_l_xm,ires_l_y(i))-1020 
wo r k_2 C i re s Jl _x f i ) +1 , i re s_l _y ( i ) ) -10 



iwo _ 

iwork_2 

iwork_2Cires_l 



ix=ires_l_x(i) 
• lO-y(i) 



)-1020 

y(i)+l)=1020 

rk_2£ires_l_x(i)+l,ires_1_y(i)+l)=1020 



iy=ires 

ix2=i res_l_xfi-l) 
;s_l _y(i-l) 



iy2*i res_l_y(i-l, 
call Jine3(iwork_2,mszx,mszy,ix 1 iy,ix2,iy2 1 ierr3) 
call Iine3(iwt,mszx,mszy,ix 1 iy,ix2 p iy2 1 ierr3) 
end do 

ix=i res_r_x(l) 
iy-ires_r_y(l) 
ix2=i res_r_x(l) 
iy2=l 

call line3(iwork_2,mszx,niszy.ix.iy p ix2,iy2,ierr3) 
y,ix,iy 1 -ix2,iy2,ierr3) 



call line3(iwt,mszx,mszy 
ix«i res_l_x(l) 
iy=i res_l_y(l) 
ix2=ires_l_x(l) 
iy2-l 

call line3(iwork_2 ,mszx,mszy ,ix, iy,ix2 ,iy2 ,ierr3) 
cal 1 Iine3(iwt,mszx,mszy,ix t iy 1 ix2 ,iy2 ,ierr3) 
if(ires_r_y(num_l) . gt. i res_l_y(num_2) ) then 
ix=i res_l_x(num_2) 
iy*i res„l„y(num_2) 
i x2 = i res_l_x(num_2 



iy2=i res_r_y(num_l) 
call line3(iwork_2 .mszx.mszy ,ix,iy, ix2 ,iy2,i err3) 
call Iine3(iwt,mszx 1 mszy,ix ( iy p ix2,iy2 ,ierr3) 
end if 

do j-l,mszy 

ixl_rule3(l,j)-0 

ixLrule3(2,3)=0 
end do 

iyLrulel=min(i res_r_y (num_l) , i res_l_y(num_2)) 
iyl_rulel-i res_r_y(num_l) 
ixl_rule2-i res_r_x(l) 
iyl_rule2=l 
ix2_rule2=-i res_l_x(l) 
iy2_rule2«max(i res_r_y(l) ,ires_l_y(l)) 
do j-iy2_rule2,iyl_rulel 
do i-l.mszx 



chs_sub.f 

end do 
end do 

writef* *) iyl_rulel l ixl_rule2,iyLrule2,ix2_rule2,iy2_rule2 
do j*iy2_rule2,iyl».rulel , , . x 

wnte(*,*) j ,ixl_rule3(l, j) ,ixl_rule3(2 , j) 
end do 
ix«l 

iy*i res__r_y(num_l) 
i x2*i res_r_x (num_l) 



iy2«ires_r_y(num_l) 

1 1ine3Ciwork_2,mszx 1 mszy,ix,iy 1 ix2 1 ny2,ier 
call Iine3(iwt,mszx,mszy 1 ix,iy,ix2 1 iy2,ierr3) 



i x=i res_l_x (nuin_21 
iy*i res_r_y(num_l) 
x2=mszx_500 



iy2-i res_r_y(num_l) 
call l i ne3 (i work_2 , mszx , mszy , i x , i y , 
call lineSCiwt.mszx.mszy.ix.iy.ixS, 
close(l) 



ix2.iy2,ierr3) 
iy2,ierr3) 



write vertical flip of image 

"call writeimage(iwork_2, 'chs.img' ,586,586) 



cal 1 cardi ac_Edge„scal i ng (i res_r_x , i res_r_y , num_l , f 1 oat (mszx_on g) / 
float(mszx_500)) . „ , 

call Cardi ac_Edge_Scali ng(i res_l_x , i res_l_y , num_2 , f loat(mszx_on g) / 
float(mszx_500)) 

cardi ac_Parmlscali ng(iyl_rulel, i xl_rule2 ,iyl_rule2 , ix2_rul e2 , iy2_rule2 , 
& nxl_rule3,float(mszx_orig) / f loat(mszx_S00)) 



) mszx 
if (iwt(i , jl .gt.O) then 
ixLrule5(l,j)-i 



goto 7577 
end if 
end do 

do i2=mszx,l, 



1 I C = HI>^A .1)1 

if(iwt(i2, j) .gt.O) then 
ixl_rule3C2,j)-i2 



goto 7578 
end if 
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copy_sub.f 

subroutine copy_sub(imagel,image2,ncol ,nlin) 
implicit integerM (i-n) 

integer*2 imagel(ncol ,nlin) ,image2(ncol ,nlin) 

do j=l,nlin 
do i=l,ncol 

image2(i , j)=imagel(i , j) 
if(image2(i ,i) .lt.O) image2(i , j)=0 
if(image2(i ,j).gt,1023) image2(i , j)=1023 
end do 
end do 
return 
end 
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c 

cs 
c 

CP 
CP 

c 

CK 
C 

CD 
CD 
CD 
C 

CA 
CA 
CA 
CA 
CA 
CA 
CA 
CA 
CA 
C 

CN 

CN 

CN 

C 

C 



c— 

CD 
CD 
C-- 



C 

CF 
CF 



C 

CF 



corrl.f 

SUBROUTINE CORRl(IP , ITPL , ISTX , ISTY , ISX , ISY , ISA , JX , 3 Y , CMAX) 

CALL CORRl(lP , ITPL , ISTX , ISTY , ISX , ISY , ISA , JX , JY, CMAX) 

IMAGE REGISTRATION BY FINE SCAN 
USING NORMALIZED CROSS-CORRELATION 

REGISTRATION, CROSS-CORRELATION 

AUG , 1979, PROGRAMMED BY K.SAKAUE 
JULY 3, 1980, REFORMED BY E.UENO 

6/15/98, Modified by Qiang Li, 



IP(ISX,ISY) 
ITPL (ISTX, ISTY) 
ISA(4) 



JX, JY 
CMAX 
REFERENCES: 



(IN) 
(IN) 



* INPUT INTEGER IMAGE 

* TEMPLATE PICTURE 

* SEARCH AREA 

ISA(1),ISA(2) : LEFT-UPPER COORDINATE 
ISA(3) ,ISA(4) : RIGHT-LOWER COORDINATE 
OR -(SEARCH AREA SIZE) (IN) 

* THE LEFT-UPPER COORDINATE OF THE 

MOST SIMILAR SUBIMAGE IN "IP" (OUT) 

* CROSS-CORRELATION AT (3X,JY) (OUT) 



D.I. BARNEA AND H . F . SILVERMAN : "A CLASS OF 
ALGORITHM FOR FAST DIGITAL IMAGE REGISTRATION' 
IEEE TRANS. C-21,N0.2, FEB. 1972. 



implicit integerM (i-n) 
integerM itpl (ISTX, ISTY) 
integerM IP(ISX,ISY) 
integerM ISA(4) 
integerM JXY(4) 
realM CC(2) 



Assign initial value to CC(2) 
6/15/98, Modified by Qiang Li, 

CC(1) = -1E20 
CC(2) = -1E20 

STXY=ISTX*ISTY 

TPLM : AVERAGE OF "ITPL" 
SWP : VARIANCE OF "ITPL" 
SWP=0E0 

tplm=0e0 

DO 9 J=1,ISTY 

DO 9 1=1, ISTX 

SWP=SWP+FL0AT(ITPL(I, J))**2 
TPLM=TPLM+FLOAT(lTPL(I , J)) 

CONTINUE 

TPLM=TPLM/ STXY 

SWP=SWP-STXY*TPLM**2 

SEARCH AREA SETTING 

LlX=ISA(l) 

LlY=ISA(2) 

L2X=ISA(3) 

L2Y=ISA(4) 

IF(L2X.LT.0)L2X=LlX-L2X-l 
IF(L2Y.LT.0)L2Y=L1Y-L2Y-1 
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corrl. f 

CF ALLOWED RANGE OF REFERENCE POINTS 
MlX=LlX 
MlY=LlY 

M2X=L2X-ISTX+1 
M2Y=L2Y-ISTY+1 

c 

DO 20 J=MlY,M2Y 
DO 20 I=MlX,M2X 

IZ=I 

JZ=0 

CALL CORR0(lP, ITPL, ISTX, ISTY, ISX, ISY, IZ,JZ,TPLM, SWP, COR, JXY,CC) 
IF(COR.GE.lE0)GO TO 22 
20 CONTINUE 

JX=JXY(1) 

JY=OXY(2) 

CMAX=CC(1) 

RETURN 
22 CONTINUE 

JX=I 

JY=J 

CMAX=1E0 

RETURN 

END 

SUBROUTINE CORRO(IP , ITPL , ISTX , ISTY, ISX , ISY, IX , IY 
@ , ATPL , SWP , COR , JXY , CC) 

C 

CS CALL CORRO(IP , ITPL , ISTX , ISTY , ISX , ISY , IX , IY 

CS , ATPL , SWP , COR , JXY , CC) 

C 

CP NORMALIZED CROSS-CORRELATION 
C 

CK REGISTRATION , CROSS-CORRELATION 
C 

CD AUG , 1979, PROGRAMMED BY K.SAKAUE 

CD JULY 3, 1980, REFORMED BY E.UENO 

C 

CA IP(ISX,ISY) * INPUT INTEGER PICTURE (IN) 

CA ITPL (ISTX, ISTY) * TEMPLATE PICTURE (IN) 
CA IX, IY * LEFT-UPPER COORDINATE OF THE SUBIMAGE 

CA IN "IP" (IN) 

CA ATPL * AVERAGE OF "ITPL" (IN) 

CA SWP * SUM OF THE POWER IN "ITPL" (IN) 

CA COR * NORMALIZED CROSS-CORRELATION AT IX, IY (OUT) 

CA JXY(1),JXY(2) * THE ELEMENT CORRESPONDING TO THE HIGHEST 
CA CROSS-CORRELATION FOUND FROM PREVIOUS 

CA SCAN ELEMENTS (OUT) 

CA JXY(3), JXY(4) * SAME AS ABOVE BUT THE SECOND HIGHEST (OUT) 
CA CC(1) * CROSS-CORRELATION AT JXY(l) , HXY(2) (OUT) 

CA CC(2) * CROSS-CORRELATION AT JXY(3) , JXY(4) (OUT) 

C 

CN REFERENCE: D.I. BARNEA AND H . F . SILVERMAN : "A CLASS OF ALGORITHM 
CN FOR FAST DIGITAL IMAGE REGISTRATION" , IEEE TRANS. 

CN ,VOL.C-21, NO. 2, FEB. 1972. 

C 



implicit integerM (i-n) 

integerM ITPL (ISTX, ISTY) 

integerM IP(ISX,ISY) 

integerM JXY(4) 

realM CC(2) 

SS=0E0 

CP=0E0 

A2MN=0E0 
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corrl.f 

AlSUM=0E0 
STXY=ISTX*ISTY 
DO 10 3=1,ISTY 

LY=J+IY-1 

DO 11 I=1,ISTX 
LX=I+IX-1 

IF(LX.LT.1.0R.LX.GT.ISX)GO TO 12 
IF(LY.LT.1.0R.LY.GT.ISY)GO TO 12 
A2=IP(LX,LY) 
GO TO 13 

12 CONTINUE 
A2=0E0 

13 CONTINUE 
Al=ITPL(I,3)-ATPL 
CP=CP+Al*A2 
SS=SS+A2**2 
A2MN=A2MN+A2 
AlSUM=AlSUM+Al 

11 CONTINUE 
10 CONTINUE 

A2MN=A2MN/STXY 

SS=SS-STXY*A2MN**2 

CP=CP-AlSUM*A2MN 

SQ=SQRT(SS*SWP) 

I F (SQ . LE . 0E0) SQ=0 . 000001 

COR=CP/SQ 

IF(COR.LE.CC(2))GO TO 20 

IF(COR.LE.CC(l))GO TO 21 

CC(2)=CC(1) 

JXY(3)=OXY(l) 

JXY(4)=JXY(2) 

CC(l)=COR 

JXY(1)=IX 

JXY(2)=IY 

GO TO 20 
21 CONTINUE 

IF(IX.EQ. JXY(l) .AND.IY.EQ. JXY(2))GO TO 20 

CC(2)=COR 

JXY(3)=IX 

JXY(4)=IY 
20 CONTINUE 

RETURN 

END 
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c 

cs 
c 

CP 
CP 

c 

CK 

c 

CD 
CD 
CD 
C 

CA 
CA 
CA 
CA 
CA 
CA 
CA 
CA 
CA 
C 

CN 
CN 
CN 
C 

c 



C-- 
CD 
CD 
C-- 



C 

CF 
CF 



C 

CF 



corrrl.f 

SUBROUTINE CORRRl(lP , ITPL , ISTX , ISTY , ISX , ISY , ISA , 3X , 3 Y , CMAX) 
CALL CORRRl(lP, ITPL, ISTX, ISTY, ISX,ISY, ISA, JX,JY, CMAX) 

IMAGE REGISTRATION BY FINE SCAN 
USING NORMALIZED CROSS-CORRELATION 

REGISTRATION, CROSS-CORRELATION 

AUG , 1979, PROGRAMMED BY K . SAKAUE 
JULY 3, 1980, REFORMED BY E.UENO 

6/15/98, Modified by Qiang Li, 



IP(ISX,ISY) 
ITPL (ISTX, ISTY) 
ISA(4) 



JX, JY 
CMAX 



INPUT INTEGER IMAGE (IN) 
TEMPLATE PICTURE (IN) 
SEARCH AREA 

ISA(1),ISA(2) : LEFT-UPPER COORDINATE 
ISA(3),ISA(4) : RIGHT-LOWER COORDINATE 

OR -(SEARCH AREA SIZE) (IN) 
THE LEFT-UPPER COORDINATE OF THE 
MOST SIMILAR SUBIMAGE IN "IP" (OUT) 
CROSS-CORRELATION AT (JX,JY) (OUT) 



REFERENCES: D.I. BARNEA AND H . F. SILVERMAN: "A CLASS OF 

ALGORITHM FOR FAST DIGITAL IMAGE REGISTRATION 1 
IEEE TRANS. C-21,N0.2, FEB. 1972. 



mplicit integerM (i-n) 
nteger*2 ITPL (ISTX, ISTY) 
nteger*2 IP(ISX,ISY) 
ntegerM ISA(4) 

integer*4 JXY(4) 

real *4 CMAX 

realM CC(2) 



Assign initial value to CC(2) 
6/15/98, Modified by Qiang Li, 

CC(1) = -1E20 
CC(2) = -1E20 

STXY=ISTX*ISTY 

TPLM : AVERAGE OF "ITPL" 

SWP : VARIANCE OF "ITPL" 

SWP=0E0 

TPLM=0E0 

DO 9 J=1,ISTY 

DO 9 1=1, ISTX 

SWP=SWP+FLOAT(lTPL(I, J))**2 
TPLM=TPLM+ FLOAT (ITPL (I , J)) 

CONTINUE 

TPLM=TPLM/ stxy 

SWP=SWP-STXY*TPLM**2 

SEARCH AREA SETTING 

LlX=ISA(l) 

LlY=ISA(2) 

L2X=ISA(3) 

L2Y=ISA(4) 

IF(L2X.LT.0)L2X=L1X-L2X-1 
IF(L2Y.LT.0)L2Y=LlY-L2Y-l 
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corrrl.f 

C 

CF ALLOWED RANGE OF REFERENCE POINTS 
MlX=LlX 
MlY=LlY 

M2X=L2X-ISTX+1 
M2Y=L2Y-ISTY+1 

c 

DO 20 J=MlY,M2Y 
DO 20 I=MlX,M2X 

IZ=I 

JZ=J 

CALL CORRR0(lP, ITPL, ISTX, ISTY,ISX,ISY,IZ,JZ,TPLM, SWP, COR, JXY,CC) 
IF(COR,GE.lE0)GO TO 22 
20 CONTINUE 

JX=JXY(1) 

JY=DXY(2) 

CMAX=CC(1) 

RETURN 
22 CONTINUE 

3X=I 

JY=0 

CMAX=1E0 

RETURN 

END 



C 

CS 

cs 
c 

CP 

c 

CK 

c 

CD 
CD 
C 

CA 
CA 
CA 
CA 
CA 
CA 
CA 
CA 
CA 
CA 
CA 
CA 
CA 
C 

CN 
CN 
CN 
C 



SUBROUTINE CORRR0 (IP , ITPL , ISTX , ISTY , ISX , ISY , IX , IY 
a , ATPL, SWP, COR, DXY,CC) 

CALL CORRR0(lP, ITPL , ISTX, ISTY, ISX,ISY, IX, IY 
, ATPL , SWP , COR , JXY , CC) 

NORMALIZED CROSS-CORRELATION 

REGISTRATION , CROSS-CORRELATION 

AUG , 1979, PROGRAMMED BY K.SAKAUE 
JULY 3, 1980, REFORMED BY E.UENO 



IP(ISX,ISY) 
ITPL (ISTX, ISTY) 
IX, I Y 

ATPL 

SWP 

COR 

JXY(l) ,JXY(2) 



JXY(3),JXY(4) 

CC(1) 

CC(2) 



IN "IP" 
AVERAGE OF "ITPL" 
SUM OF THE POWER IN 



INPUT INTEGER PICTURE (IN) 
TEMPLATE PICTURE (IN) 
LEFT-UPPER COORDINATE OF THE SUBIMAGE 

(IN) 
(IN) 

'ITPL" (IN) 
NORMALIZED CROSS-CORRELATION AT IX,IY (OUT) 
THE ELEMENT CORRESPONDING TO THE HIGHEST 
CROSS-CORRELATION FOUND FROM PREVIOUS 
SCAN ELEMENTS (OUT) 
SAME AS ABOVE BUT THE SECOND HIGHEST (OUT) 
CROSS-CORRELATION AT JXY(l) , JXY(2) (OUT) 
CROSS-CORRELATION AT JXY(3) , JXY(4) (OUT) 



REFERENCE: D.I. BARNEA AND H . F . SILVERMAN : "A CLASS OF ALGORITHM 
FOR FAST DIGITAL IMAGE REGISTRATION" , IEEE TRANS. 
,VOL.C-21, NO. 2, FEB. 1972. 



implicit integerM (i-n) 
integer*2 ITPL (ISTX, ISTY) 
integer*2 IP(ISX,ISY) 
integerM JXY(4) 
real*4 CC(2) 
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corrrl.f 

SS=0E0 
cp=0e0 

A2MN=0E0 
A1SUM=0E0 
STXY=ISTX*ISTY 
DO 10 D=1,ISTY 

LY=J+IY-1 

DO 11 I=1,ISTX 
LX=I+IX-1 

IF(LX.LT.1.0R.LX.GT.ISX)GO TO 12 
IF(LY.LT.1.0R.LY.GT.ISY)GO TO 12 
A2=IP(LX,LY) 
GO TO 13 

12 CONTINUE 
A2=0E0 

13 CONTINUE 
A1=ITPL(I, J)-ATPL 
CP=CP+Al*A2 
SS=SS+A2**2 
A2MN=A2MN+A2 
AlSUM=AlSUM+Al 

11 CONTINUE 
10 CONTINUE 

A2MN-A2MN/STXY 

SS=SS-STXY*A2MN**2 

CP=CP-AlSUM*A2MN 

SQ=SQRT(SS*SWP) 

I F (SQ . LE . 0E0) SQ=0 . 000001 

COR=CP/SQ 

IF(COR.LE.CC(2))GO TO 20 

IF(COR.LE.CC(l))GO TO 21 

CC(2)=CC(1) 

JXY(3)=JXY(1) 

JXY(4)=DXY(2) 

CC(l)=COR 

JXY(1)=IX 

JXY(2)=IY 

GO TO 20 
21 CONTINUE 

IF(IX.EQ. JXY(l) .AND.IY.EQ. JXY(2))GO TO 20 

CC(2)=COR 

JXY(3)=IX 

JXY(4)=IY 
20 CONTINUE 

RETURN 

END 
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CTS_QUICK_Y3.f 



subroutii 
program 



e cts_quick_y3(0efFile, 
CTS_QUICK 



Prelmage, Curlmage, sublmage) 



Quick Version of Chest Temporal Subtraction Processing 
Incorporating an Automated Image Registration Technique 



ver. 1.1 

written by Akiko Kano, 
Modified by Xin-Wei Xu, 
Modified by shige, 
Modified by Taka, 
Modified by Taka, 

Modified by Taka, 
Modified by Taka, 
Modified by (Jiang Li , 
Modified by Qiang Li , 

Modified by Shige 



Apr. 8, 1993 
Apr. 22, 1993 
Apr. 17, 1993 
Aug. 12, 1997 
Nov . 20 , 1997 

Dec. 4, 1997 
Dec. 20, 1997 
May. 18, 1998 
Uul.23,1998 

Apr. 28, 1999 



Ribcage_Detection version Up 
Application for FCR 
Improvement of initial Matching 
improvement of Warping by vector 
selection 
Iterative warping 
Iterative Warping without fitting 
Lateral inclination correction 
take imagel as previous image 

image2 as current image 
Nonlinear Density Correction 



This program performs a subtraction processing between two temporally 
sequential chest images. Resulting subtraction image corresponds to 
(current image)-(warped previous image)+(Offset) . Offset value is 
determined 

such that average pixel value of the subtraction image is 511. 

1. Get processing parameters. 

2. Read image data of original image pair - current chest image:lmage2 
and previous chest image: Imagel. 

3. Determine density correction factors for nonlinear density correc- 
tion with reduced matrix sizes. 

4. If exposure factor is 0.5 or less, apply the density correction. 

5. Determine significance of lateral inclination based on chest mid- 
lines for the two images. 

6. Rotate imagel in case the lateral inclination is significant. 

7. Detect ribcage edges. 

8. If exposure factor is larger than 0.5, apply the density correc- 
tion now. m r 

9. Select template ROIs on Image2 and search area ROIs on Imagel for 
local matcnings. 

10. Perform a local matching technique based on cross-correlation method 
to obtain shift values DX and DY for each center of template ROIs. 
Calculations are done using reduced matrix sizes by a factor of 2. 

11. Apply weighted two-dimensional curve fittings on DX and DY for the 
center points of templates. Shift values for other points inbetween 
are calculated by linear interpolations. 

Two subtraction images will be calculated by using differect fitted 
shift values. One is based on the major shift vector direction, 
other is based on the opposite direction. 

12. Warp Imagel based on the fitted shift values and subtract the warped 
Imagel from Image2. 

13. Select good subtraction image by using HC value for each lung. 
The Histogram Contrast value (HC value) is determined by width of the 
histogram of the subtraction image. 
Small HC value means a good subtraction image. 

14. compare HC values between the two subtraction images. Subtraction 
image with small HC values are employed. 

when half lung is good but the other is poor, the shift vector direction 
for the poor lung will be flipped. Then the subtraction image isa 
re-maked. 

15. iterative (2nd) temporal subtraction will be performed. 
In the 2nd warping, final shift vector is determined by linear 
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interpolation of original shift vector. 
16 Save the subtraction image. 
17. save the shift values, if necessary. 



(1) 



Maximum image matrix size is 512 columns x 645 lines, 
modified by changing "MAXCOL" and "MAXLIN . 
Gray levels should Be (0 - 1023). To change this, si 



It can be 



(2) Gray levels should Be (0 - 1023). To change this, subroutines 
related to density correction and ribcage detection must be 
modified. , „ , .., j 

(3) Gray level "0" represents Optical Density 3.0 , and 1023 

represents "0.0". This relationship can be inverted by giving 1 
as "GRAYSCALE". To change the density range, subroutines related 
to ribcage detection must be modified too. 

(4) Application of nonlinear density correction is determined in tsub.def. 



input Files : current image 
Previous Image 
Density Correction LUTs 

output Files : Subtraction Image 

Data File of Initial Shift-Map 
Data File of Fitted shift-Map 
Log File 



(If Necessary) 



(If Necessary) 
(If Necessary) 



This program calls; 

Get_Parameters_Skip, Read_Original_Images_Skip, copy_sub, 
mi ti al i zati on , Get_Densi ty_cor recti on_Factor , 
Density_Cor recti on_New, Leteral_Inclination_c, Rotate_Image, 
Ribcage_Detection, chs_sub, init_match t warp_rib_chs , 
ROI_Selection, Local_Matching_Skip, shift_Map_Fitting_lntp, 
warp_and_subtraction, simple_subtraction, quanti2 , 
Save_Subtraction_ImageQ, Save_DataQ 



Compile and link command : just type "make'. 

You need "Makefile", besides all the required source files, in order to 
compile and link this program. 



PARAMETERS 



implicit none 

integerM MAXCOL, MAXLIN, GRAYSCALE, SKIPD, SKIPL, SKIPI 
integerM MAXTPS, MAXSAS, MAXPT, MAXPV, MAXOD 
integer*4 SIZE586, num_ite 
realM magnify 




(MAXCOL-512, MAXLIN^ 
(MAXCOL-600, MAXLIN' 
(MAXCOL-700, MAXLIN= 
(SIZE586=586) 
(GRAYSCALE— 1) 
(SKIPD=4) 
(SKIPL=2) 
(SKIPI=4) 
(MAXTPS=64) 
MAXSAS=128) 
MAXPT- 3000) 
^MAXPV=1023) 
(MAXOD=10) 
.magni fy>=2.0) 
num_i te=2) 



=645)! Maximum Image Matrix size 
=600)1 Maximum image Matrix Size 
=700)! Maximum image Matrix size 
I image Matrix Size 
! inversed Grayscale ( 0 -> Darker ) 
! Reduction Rate for Density correction 
! Reduction Rate for Local Matching 
! Reduction Rate for initial Matching 
! Maximum Template ROI Size 
I Maximum Search Area ROI size 
I Maximum No. of ROI Pairs 
! Maximum Pixel value 
! Highest order for Polynomial Fittting 
! contrast factor for subtraction image 
! Number of iteration 
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POINTERS 

(buf_Fxl,buf_FYl): Fitted Shift Vector for vector including peak 
(buf_FX2,buf_FY2): Fitted shift Vector for vector not including peak 
buf_image3: Subtraction image with warping (include peak of shift vector 
hi stogram) Subl 

buf_image5: Subtraction image with warping (not include peak of shift 
vector histogram) Sub2 



pointer (p_FXl, buf_FXl) , (p_FYl, buf_FYl) , (p_FX2, buf_FX2) 
pointer (p_FY2, buf_FY2) 
pointer (p_image3, buf_image3) 
(p_image5, buf_image5) 



pointer 



VARIABLES (1) 



integer*4 tps 
integer*4 sas 
integer*4 inc 

integerM Idlimit 

realM lithres 

integerM order 
realM wf(2,11) 

integerM dens_corr 

integerM save_dat 



I Template ROI Size (Pixels) 
I Search Area ROI Size (Pixels) 
I Distance Between Centers of ROIs 
! (Pixels) 

I Pixel Value for Low Density Limit of 
I ROI selection 

I criteria of angle for Lateral Incli- 

I nation Correction 

! Order of Polynomials for Fitting 

! LOT for weighting Factor vs. Cross- 

! correlation Value 

! not used 

! Density Cor. is determined in tsub.def 

! 1 -> Save shift-Map Data Files 

! 0 -> Do Not Save shift-Map Data Files 



VARIABLES (2) , , 

IDX , IDY , tpco , saco , FITXl , FITYl , FITX2 , FITY2 , wei ghtl , wei ght2 , CCo , and angl ewk 

are formatted dimension for the 2D rectangular mapping. 

IDX, IDY, tpc, sac, and CC are sequentially stored in the one diemsional 

array. 



integer*2 imagel(MAXCOL , maxlin) ! Current Image Data 
integer*2 image2 (MAXCOL .MAXLIN) ! Previous Image Data 
integer*2 i magel_2 (MAXCOL, MAXL IN) ! Copy of Current Image for display 

! with shift vactor 
integer*2 image2_2 (MAXCOL, MAXLIN) I Copy of Previous Image for display 

! with shift vactor 
integer*2 imagelrwl (MAXCOL .MAXLIN) ! Warped Current Image Datal 

! including shift vactor peak 
integer*2 i magelrw2(MAXCOL, MAXLIN) ! Warped Current Image 0ata2 

! not including shift vactor peak 
integer*2 i roiS(MAXCOL, MAXLIN) ! Small ROI for HC determination 
integer*2 rog lungimg (MAXCOL .MAXLIN) ! Image that shows lung segmentation 
information [ROGER] 

integer*2 roglef tribarr(MAXLIN) , rogrightribarr(MAXLIN) ! For sa/ne purpose. 
integer*2 rogribtop, rogribbot I For same purpose 

integer*2 rogxl, rogx2 , rogyl, rogy2 ! For same purpose 

external wri te_headerless ! Spragma C(write_headerless) ! For same purpose 
realM rogslope 

' ' ! " ! Filenames of Imagel and Image 2 
! Length of Filename 
! Matrix size of Imagel and 2 
! 1 -> Dens. Corr. is Done 
! 0 -> Dens. Corr. is Not Done 
angle, anglePrev.angleCur ! Rotation Angle for Lateral Inclination 
I Correction 
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character filel*80, file2*80 
integerM lengl, leng2 
integerM nco 1 , nlin 
integerM DC1, DC2 

realM 



integer*2 blank(MAXCOL, MAXLIN) 

integer*2 rribcagel(2 ,1215) 

integer*2 1 ribcagel(2 , 1215) 

integers rribcage2 £2 ,1215) 



integer-* i r i uv-ayet ■ 

integer*2 ribfeaturel^OJ 



integer*2 ribfeature2(50) 
integer*2 rribcage_nol 
" lribcage_nol 
rribcage_no2 
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I 1 -> Pixel with No Image Data 
I 0 -> Pixel with Image Data 
! Right Ribcage Points for Imagel 
! Left Ribcage Points for Imagel 
I Right Ribcage Points for Image2 
! Left Ribcage Points for Image2 
! Ri bcage -Related Features for Imagel 
! Ribcage-Related Features for lmage2 
of.' " 



Imagel 
Image2 



i nteger*2 
i nteger*2 
integer*2 
realM 



lribcage_no2 
cf_rl(10),cf_U(10) 



Right Ribcage Points for imagel 
of Left Ribcage Points for Imagel 
I No. of Right Ribcage Points for Image2 
! no. of Left Ribcage Points for Image2 
! coefficients of Fitted Ribcage Edge for 



realM cf_r2(10),cf„12(10) ! Coefficients of Fitted Ribcage Edge for 



integerM sac(2,MAXPT) 

integerM tpc(2, MAXPT) 

integerM regionl(4) 

integerM region2(4) 

integerM number 

ROI_SELECTION.f 

integerM DX(MAXPT), DY(MAXPT) 



I Centers of Search Areas on Imagel 

! Centers of Templates on Image2 

I smallest Rectangle Area Including sac 

! Smallest Rectangle Area including tpc 

! Number of ROI Pairs is 

! determined in the subroutine of 



„ .... ,. , ! initial Shift values by Cross-correlation 

integerM IDx(MAXPT), IDY(MAXPT) ! Initial Shift Values by Cross-correlation 
! formatted for the rectangler shift-value 

integerM tpco(2, MAXPT) , saco (2 , MAXPT) ! Center location for Template ROI 
I and search area ROI 
! formatted for the rectangler 



-location map. 
integerM fitxI(maxpt) , 



shift-value map. 

integerM FITX2 (MAXPT) , 



shift-value map. 
real M 



FITYl (maxpt) I Fitted shift values for subl 
! formatted for the rectangler fitted 

FITY2 (MAXPT) ! Fitted Shift Values for Sub2 
! formatted for the rectangler fitted 



! Buffer 



wei ghtl(MAXPT) 
real M weight2 (MAX FT) 
realM CC(MAXPT) .CCo(MAXPT) 

realM angleroi (maxpt) 

realM buf.FXl (MAXCOL , MAXLIN) , 
Address for Fitted shift Values 

realM buf_FX2 (MAXCOL .MAXLIN) , 
Address for Fitted Shift Values 

! for the minority direction 

integer*2 buf_image3(MAXC0L,MAXLlN) ! Buffer Address for 

Subtraction Image3 

! for the majority direction 
integer*2 buf_image5 (MAXCOL .MAXLIN) ! Buffer Address for 

subtraction lmage5 

! for the minority direction 



! weights for determination of subl 

! formatted for the rectangler weight map. 

! weights for determination of Sub2 

! formatted for the rectangler weight map. 

! cross-Correlation Values and 

I cross-correlation Values 

I formatted for the rectangler cc map. 

! Angle of Shift vector for each ROI 

! formatted for the rectangler angle map. 
buf_FYl (MAXCOL, MAXL IN) "' 

! for the majority direction 
buf_FY2 (MAXCOL , MAXLIN) 



integer time(3) 
integerM id 

integerM shiftmid , ribtop 



! Global shift value 
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cmax is not used in the main routine. 



matchi ng 



realM cmax 



! Maximum CC value for Initial image 



, 

integerM qmid.qtop.qbot, offset 

integer*4 npx.npy 
rectangular 



Midline, Toplung, Bottom lung and 

offset for evaluation of subtraction image 

MATRIX SIZE OF SHIFT-MAPS in the 



integer*4 i res_r_x (100) , i res_r_y 
i nteger*4 i res_l_x(100) , i res_l_y 



! area including all ROls. 

100) ! Detected location of R-cardiac edge 
;i00) ! Detected location of L-cardiac edge 



integer*4 ixl_rule2,iyl_rule2 
integer*4 ix2_rul e2 , iy2_rule2 
integer*4 ixLrul e3(2 , SIZE5B6) 



x-location 

integerM iyl^rulel 



Upper-right location of mediastinum 
Upper-left of left cardiac edge 
x-locations of cardiac edges 
ixl_rule3(l,siZE586) => right cardiac 

ix1_rule3(2,SlZE586) => left cardiac 

bottom of right cardiac edge 



(ixl_rule2,iyLrule2) 



iyl_rulel 



(ix2_rule2,iy2_rule2) 



integer*4 numl,num2 
integer*4 ith_avgpix 



integer*4 giveangle 



! Number of data for cardiac points 
I Threshold level (pixel value) 
! for cardiac boundary 

! SW, if giveangle- 1 *> Majority vector 
! if giveangle=>-l Minority vector 



Histogram width of subtraction image obtained from major shift vector. 
Histogram width is a measure of subtraction image quality. 
The smaller histograms width corresponds to the better image quality. 
contrls,contr2s correspond the histogram widths for the subtraction 
images obtained with major shift vector and minor shift vector, 
respectively. 



integer*4 contrls ,contr2s 
integer*4 contlls,contl2s 



integer*4 iswr,iswl 



\ HC values of Sub images (Small ROI) 
! HC values of Sub images (small ROl) 

I Switch vector when iswr/iswl - 1 



integer*4 iflag 



integer*4 iloop 
integer*4 iteration 



! iflag - 0 -> Select Majority 

! iflag = -1 -> Select Minority 

! iflag - 1 -> Switch vector in R lung 

! iflag - 2 -> Switch vector in L lung 

! Stopper for vector flip 

! Number of loop for Iteration 
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integer*4 i.j I 3ust used for do loop 

integer*4 ilasty ! used for tracking last Y position [ROGER] 

character*l findi ! Indicator for saving file name (Subl or Sub2) 

common /LOGFILE/ id 

! — " — 

! WORK SPACE FOR SHIFT VECTOR ANALYSIS MATCHING 

! These were not used in this main routine. 

integerM workl(MAXPT) I copy of iox 

integerM work2(MAXPT) I copy of IDY 

realM work3(MAXPT) ! work for determination of 

! shift-vactor orientation 
realM work4(MAXPT) I work for determination of 

! average of ROls. 

realM workS(MAXPT) ! work for determination of 

! SD of ROls. 

integerM work6(MAXPT) I work for determination of 

! histogram of subtraction 

image. 

! WORK SPACE FOR INITIAL MATCHING 

integerM kncol , knlin ! Reduced Image Size 

integer*2 wkl(MAXCOL/SKIPI,MAXLIN/SKlPI) ! Reduced work Image 

integer*2 wk2(MAXCOL/SKIPI,MAXLIN/SKIPI) ! Reduced work Image 

integer*2 wk3(MAXCOL/SKIPI,MAXLIN/SKIPl) ! Reduced work Image 

integer*2 wk4(MAXCOL/SKIPI,MAXLIN/SKIPI) ! Reduced work Image 

integer*2 wk5(MAXCOL/SKIPI ,MAXLIN/SKIPI) ! Reduced work Image 

integer*2 wk6(MAXCOL/SKIPI,MAXLIN/SKIPl) ! Reduced work Image 

integer*2 wk7(MAXCOL/SKIPI,MAXLIN/SKIPlj ! Reduced work Image 

integer*2 wk8(MAXCOL/SKlPl ,MAXLIN/SKIPl) ! Reduced work Image 

I — — - 

! FUNCTIONS 

i ntegerM Read^Origi nal_Images_Ski p 
integerM ROI_Selection 
integerM Local_Matchi ng_Ski p 
integer malloc 
realM dtime 

i Given by q. Li, used for midline detection 

realM BestShift, BestShiftPrev, Bestshiftcur I shift value of midline in 
x di rection , 

realM A, B ! Coefficients for "X - AY + B" 

I Given by Shige (image file names and size of FCR header etc.) 

I 

character DefFile*128 

character prelmage*128, Curlmage*128, sublmage*128 

integerM return_value 
realM tarray(2), ttime 

! 

I GET PARAMETERS 

! 

ttime=dtime(tarray) 

call Get_Parameters_skip( tps, sas, inc. ldlimit, lithres, order, WF, 
1 dens_corr, save_dat, SKIPL, MAXTPS, MAXSAS, maxpv, MAXOD ) 

! READ CURRENT(2) AND PREVIOUS(l) IMAGES 
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return_value - Read_Original_Images_Skip( image2, 
ncol , nlin, 



DefFile, 
Prelmage , 



MAXCOL, MAXLIN, 
Curlmage) 



imagel, 



Density Correction (Application is determined in tsub.def) 

call nonlinear_density_correction(image2, imagel, ncol, nlin, DefFile) 



Counter for iterative temporal subtraction 



i teration=0 
iflag=0 

iteration*^ teration+1 



Copy warped current image to Imagel as current image. 



if (iteration. ge. 2 .and. if lag. ne. -1) then 

call copy_sub(imagelrwl, imagel, ncol , nlin) 
end if 

i f (i terati on . ge . 2 . and . i f 1 ag . eq . -1) then 

call copy_sub(imagelrw2 .imagel, ncol , nlin) 
end if 



Smaller search area size will be given in the 2nd warping 
if(iteration.ge.2) sas»45 

INITIALIZATION 

call i time (time) 

write(id,*) 'Program started at ' 

time(l), time(2), time(3) 

call lnitialization( Dd, dc2, blank, ncol, nlin ) 



copy imagel for display of shift vector, cardiac line and Ribcage edge 
imagel_2(i , j) , image2_2(i , j) : 3ust for display purpose. 

do j-1. MAXLIN 

-l.MAXCOL 



end do 
end do 



imagel_2fi,j)*imagelfi,j) 
image2_2(i,3)-image2(ij) 



***************** 



###*#*** 



^jjj^Note^that^below^part^^ 

a************************************************************************ 



ROTATE IMAGE 



if (iteration. eq.l) then 
if ( Lateral _Inclination_c( imagel, image2, ncol, nlin, 

angle, lithres, imageL_2, image2_2) ) then 
call Rotate_lmage( imagel, ncol, nlin, angle, blank ) 
call Rotate_Image( imagel_2, ncol, nlin, angle, blank ) 
end if 
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:e image , 
Qiang Li, f/18/98, 
university of Chicago 



c write(*,*) ' Ribcage_Detection of imagel for lmage_Rotate ' 

call RibCage_Detection(imagel, ncol, nlin, ribfeaturel, 
1 rribcagel, rribcage_nol, Iribcagel, lribcage_nol,cf_rl,cf_ll) 

call Rot - Angle_8y_Ribcage(imageL2, ncol, nlin, ribfeaturel, rribcagel, 
rribcage_nol, 

1 Iribcagel, lribcage_nol, A, B, angle, 

BestShift) 

call image_shift( imagel, ncol, nlin, BestShift, int(O) ) 

call image„shift( imagel_2, ncol, nlin, BestShift, int(O) ) 

call Image_Rotate( imagel, ncol, nlin, angle. int(0) ) 

" - ~ - - imagel_2, ncol, nlin, angle, int(0) ) 



call Image_Rotate( image: 



rribcage_no2 
BestShift) 



BestShiftPrev - BestShift 
anglePrev - angle 

write(*,*) 'Ribcage.Detection of image2 for lmage_Rotate ' 
call RibCage_Detection(image2, ncol, nlin, ribfeature2, 
rribcage2, rri bcage_no2 , lribcage2, 1 ribcage_no2 ,cf_r2 , cf_12) 

call Rot^Angle_By_Ribcage(image2_2, ncol, nlin, ribfeature2, rribcage2, 

lribcage2, lribcage_no2, A, B, angle, 



call image_shift( image2, ncol, nlin, BestShift, int(O) ) 

call image_shift( image2_2, ncol, nlin, BestShift, int(0) ) 

call lmage_Rotate( image2, ncol, nlin, angle. i r - " 

call Image_Rotate( image2_2, ncol, nlin, angle, 



int(0) ) 
int(0) ) 



Bestshiftcur = BestShift 
anglecur » angle 

call writepreprocvalsCpreproc_val5\0' , BestShiftPrev, anglePrev, 
Bestshiftcur, anglecur) 

RIBCAGE DETECTION 

write(*,*) 'RibCage_Detection of imagel for init_match' 
call RibCage_Detection(imagel, ncol, nlin, ribfeaturel, 
1 rribcagel, rribcage_nol, Iribcagel, 1ribcage_nol l cf_rl,cf_U) 

write(*,*) 'Ribcage_Detection of image2 for init_match' 
call RibCage_Detection(image2, ncol, nlin, ribfeature2, 
1 rribcage2, rri bcage_no2 , lribcage2, lribcage_no2 ,cf_r2 ,cf_12) 

do i»l, rribcage_nol 

i f f rri bcageKl , i ) . 1 1 . 1) rri bcagel(l, i )»1 
if(rribcagel(l,i) .gt.ncol) rribcagel(l, i )»ncol 
if(rribcagel(2,i).lt.l) rribcaqel(2,i)=l 
if(rribcagel(2,i) .gt.nl in) rribcagel(2,i)=nlin 
write(*,*) rribcagel(l,i) , rribcagel (2 ,i) 
end do 

write(*,*) ' ' 
do i*l,lribcage_nol 

if(iribcagel(l,i).lt.l) 1 ribcagel(l, i)-l 
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if (lribcagelCl.i) .gt.ncol) 1 ribcagel(l, i )-ncol 
ifhribcagel(2,i).lt.l) 1 ribcage2 (1. i )-l 
if(lribcagel(2.i).gt.nlin) lribcage2(l,i)=nlin 
write(*, ? ) lribcagel(l.i).lribcagel(2,i) 
end do 

write(\*) ' ' 
do i«l,rribcage_no2 

if(rribcage2(l,i).lt.l) rribcage2(l,i)*l 
if(rribcage2(l,i) .gt.ncol) rribcage2(l,i)-ncol 
if?rribcage2(2,i).lt.l) rribcage2(2 , i )-l 
if(rribcage2(2.i).gt.nlin) rribcage2 (2 , i)=nli n 
write(*,*) rribcage2Cl,i),rribcage2(2,i) 
end do 

write(*,*) ' ' 
do i=l. lribcage_no2 

if(1ribcage2(l,i).lt.l) lribcage2(l,i)«l 
ifnribcage2fl,i).gt.ncol) lribcage2(l,i)«:ncol 
if(lribcage2(2,i).lt.l) 1 ri bcage2 (2 ,i)=l 
if(lribcage2(2,i).gt.nlin) lribcage2(2,i)-nlin 
write(*,*) 1r!bcage2(l,i) , lribcage2(2,i) 
end do 



Create lung segmentation image [ROGER] 



do j » l.nlin 

do i - l.ncol 

roglungimg(nlin,ncol) - 0; 

end do 
end do 

! I!-- Now make arrays for the left and right ribcage, one element per row. 

! II— First, set all to 0. 

do i=l, nlin 

rogleftribarr(i) * 0 
roqrightribarr(i) - 0 
end do 

! !! Determine effective top (maximum of two) and effective bottom (minimum; 

if (rribcagel(2,l) .gt. 1 ri bcagel(2 , 1)) then 

rogribtop - rribcagel(2 , 1) 
else 

rogribtop - 1 ribcagel(2 , 1) 
end if 

if (rribcagel(2,rribcage_nol) .It. 1 ri bcagel(2 , 1 ri bcage_nol)) 
& then 

rogribbot = rribcagel(2 , rri bcage_nol) 
else 

rogribbot - 1 ribcagel(2 , 1 ri bcage_nol) 
end if 

! !!-- set rogrightribarr according to the rribcagel and lribcagel 

! !!-- arrays, if there are gaps, fill in. 

do i =1. rnbcage_nol 

rognghtribarr(rribcagel(2 ,i)) = rribcagelfl.i) 
if ((i .It. rribcage_nol) .and. (rri bcagel(2 , i+1) - 
& rribcagel(2,i) .gt. 1)) then 

rogxl * rribcagelfl.i) 
rogyl - rri bcagel(2 , i) 
rogx2 - rribcagelfl,i+l) 
rogy2 - rri bcagel(2 ,i+l) 

rogslope - real(rogx2 - rogxl) / (rogy2 - rogyl) 
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do j -rogyl + 1, rogy2 - 1 

rognghtribarr(j) ■= rogxl + mnt(rogslope * (j-rogyl)) 
end do 
end if 
end do 

I ! — same for rogleftribarr. 
do i-1, 1 ribcage^nol 

rogleftribarr(lribcagel(2,i)) - lribcagel(l.i) 
if (fi .It. lribcage_nol) .and. (1 ribcagel(2 , i +1) - 
Tribcagel(2,i) .gt. 1)) then 
rogxl =* lribcagel(l,i) 
rogyl = 1 ribcagel(2 ,i ) 
rogx2 - 1 ribcagelfl, i+1) 
rogy2 - 1 ribcagel(2 , i+l) 

rogslope - real(rogx2 - rogxl) / (rogy2 - rogyl) 
do j»rogyl + 1, rogyl - 1 

rogleftribarr(j) » rogxl + nint(rogslope * (j-rogyl)) 
end do 
end if 
end do 

!!-- Loop from top to bottom, 
do " 



j-rogribtop, rogribbot 
o i-rogrightribarr(j) ,rogl 
roglungimg(i,j) - 1000 



filling in the "roglungimg" image. 
eftribarr(j) 



rent di rectory, 
roglungimg, maxcol, 



end 
end do 

II-- write the image out to "lungimaqe" in the 
II — NOTE!!! We write it byte-swapped I -+- 
call write_headerless('lungimageS$ 
ncol , nlin) 

!!-- Now loop from top to bottom, printing, 
write (*,*) 

write (*,*) 'whole array: ' 
do j=rogribtop t rogribbot 

write (*,*) ]. : ', rognghtnbarr(j) , rogleftnbarrQ) 
end do 

write (*,*), 'There are ' , rribcage_nol, ' right ribcage points' 
ilasty » rribcagel(2,l) - 1; 
do i*l,rribcage_nol 

write(*,*) rribcagel(l.i). rri bcagel(2 , i ) 
if (rribcagel(2,i) .ne. (ilasty+1)) then 
write (*,*) 'Coordinate ', rribcagel(l,i) , rribcagel(2 ,i) , 
' is out of sequence. 

end if 

ilasty - rribcagel(2,i) 
end do 

write (*,*), 'There are 
ilasty - lnbcagel(2,l) • 
do i-l,lribcage_nol 

writeC*,*) TribcageKl.i), 1 ribcagel(2 , i) 
if (lribcagel(2,i) .ne. (ilasty+1)) then 
write (*,*) 'coordinate '. 1 Hbcageld. i) , 1 ribcagel(2 , i ) , 
' is out of sequence. 

end if 

ilasty « lribcagel(2,i) 
end do 
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CTS_QUICK_Y3.f 



Heart edge detection for current image 



write(*,*) 'chs_5ub of imagel' 
call chs_sub (imagel, imaged ,ncol , nlin, i res_r_x, i res_r_y, 
& i res_l_x , i res_l_y , numl , num2 , 

& iyl_rulel,ixl_rule2 1 iyX_rule2,ix2_rule2 t iy2_rule2 1 
& i xl_rul e3 , i th_avgpi x) 



initial IMAGE MATCHING using cross-correl ati on of small blurred images 

kncol = ncol / SKIPI 
knlin = nlin / SKIPI 

call i nit_match (imagel ,image2 , ncol , nli n, rribcagel, 
& lribcagel, rribcage2 , lnbcage2 , ri bfeaturel, nbfeature2 , 

& rri bcage_nol , 1 ri bcage_nol , rri bcage_no2 , 1 ri bcage_no2 , 

& shiftmid, ribtop.cmax, kncol, knlin, 

& wkl,wk2 ,wk3,wk4,wk5 ,wk6 ,wk7 ,wk8) 

write (*,*) 'Global shift - ' , shi ftmi d, ribtop 



end if 
iterative process end 



This part will be done only for 2nd warping 

Function: warping of Ribcade edge boundary and cardiac boundary 
for segmentation of warped Imagel 

i f (i terati on . ge . 2 . and . i f 1 ag . ne . -1) then 
call warp_rib_chs(buf_FXl,buf_FYl,ncol , nli n, ri bfeaturel, 
& rri bcagel , 1 ri bcagel , rri bcage_nol, 1 ri bcage_nol , 

& ires_r_x,i res„r_y,i res_l_x,i res_l_y l numl,num2 , 

& iyl_rulel,ixL.rule2,iyLru1e2,ix2_rule2,iy2_rule2, 
& ixl_rule3,imagel_2) 

shi ftmi d»0 

ribtop-0 

end if 

i f (i terati on . ge . 2 . and . i f 1 ag . eq . -1) then 
cal 1 warp_ri b_chs (buf_FX2 , buf_FY2 , ncol , nl i n , ri bfeaturel , 
& rri bcagel . 1 ri bcagel , rri bcage_nol , 1 ri bcage_nol , 

& i res_r_x,i res_r_y,ires_l_x.i res_l_y,numl,num2 , 

& iyl_rulel,ixl_rule2 t iy:L_ru1e2 , i x2_rule2 ,iy2_rule2 , 

& ixLrule3,imagel_2) 

shi ftmi d-0 

ribtop-0 

end if 



ROI SELECTION 



if ( ROI_selection( image2, ncol, nlin, 
& ribfeaturel, rribcagel, 1 ribcagel, ribfeature2 , rribcage2. 

& lribcage2, rribcage_no2 , lribcage_no2,sas, tps, inc. 
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ldlimit, number, sac, tpc, regionl, region2 
shiftmid, ribtop) .eq. 1) then 



LOCAL MATCHING 


: write(*,*) '...Local Matching.' 

if ( Local_Matching_skip( imagel, image2, ncol, 
1 number, sac, tpc, regionl, SKIPL , DX,DY,CC) .eq. 


nlin, sas 
1) then 


. tps, 


call itime(time) 

write(id,*) 'Local Matching completed at ', 
1 time(l), time(2), ':', time(3) 






SURFACE FITTING FOR SHIFT MAP 



if(iteration.ge.2) then 
call freefoFXl) 
call free(p_FYl) 
call free(p_Fx2) 
call free(p_FY2) 
call free(p_image3) 
call free(p_image5) 
end if 

p_FXl - mallocf ncol*nlin*4 ) 
p_FYl - mallocf ncol*nlin*4 ) 
p_FX2 - mallocf ncol*nlin*4 ) 
p_FY2 - mallocC ncol*nlin*4 ) 
p_image3 - malloc( ncol*nlin*2 ) 
p_image5 - malloc( ncol*nlin*2 ) 

write(*,*) '...Fitting by ', order, ' th polynomials. 

iflag=0 
i 1 oop~0 

giveangle=l ! Select Majority direction 

iloop=iloop+l 

call shift_Map_Fitting_lntp( DX, DY, cc,buf_FXl, buf_FYl, 
ncol, nlin, inc , number , tpc , sac , region2 ,WF, order, 
FlTXl , FITYljWei ghtl , npx , npy , tpco , saco , IDX , idy , ceo , 
angle roi ,shi ftmid, ri btop, 

iyLrulel,ixl_rule2,iyLrule2,ix2_rule2,iy2_rule2, 
i xl_rul e3 , i th_avgpi x , imagel, gi veangle , 
ri bfeaturel(6) , i f lag , iteration, ri bf eaturel(l) , 
MAXPT,workl,work2 ,work3,work4,work5,work6) 

if(iteration.eq.l) then 

giveangle*-l I Select Minority direction 

call Shlft_Map_Fitting_Intp( DX, DY, CC,buf_FX2, buf_FY2 , 

ncol, nlin, inc, number, tpc, sac,region2,WF, order, 

FITX2 , FITY2 , wei ght2 , npx , npy , tpco , saco , IDX, IDY , CCo , 

angl eroi , shi ftmi d , n btop , 

iyl_rulel,ixl_rule2 1 iyLrule2 | ix2_rule2,iy2_rule2, 
i xl_rul e3 , i th_avgpi x .imagel . gi veangl e , 
ri b f eatu rel (6) , i f 1 ag , i te rati on , ri bf eatu rel (1) , 
max PT.workl, wo rk2,work3,work4, works, work6) 
end if 



WARPING AND SUBTRACTION 



write(*,*) 'Before WRITE \ncol, nlin 

write(*,*) '...Warping of Imagel." 
call Warp_and_Subtraction( imagel, image2, 
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buf_image3, blank, nco I , nlin, 
buf_FXl, buf_FYl, GRAYSCALE, MAXPV .offset, imagelrwl, 



magnify) 
if?i 



'(iteration. eq.l) then 

call warp_and_Subtraction( imagel, image2, 
buf_image5, blank, ncol , nlin, 
buf_FX2, buf_FY2, GRAYSCALE , MAXPV .offset, imagelrw2, 
magni fy) 
end if 



Determine HC value of subtraction images 



qmid - ribfeature2 (6) 
qtop - ribfeature2(l) 
qbot - ribfeature2(2) 

fi ndi»'l' 

call quanti2(buf_image3,ncol , nlin, 



1 midline of image2 
! toplung of image2 
! bottomlung image2 

! output file indicator 
rribcage2,lribcage2, 



r ri bcage_no2 , 1 n bcage_no2 , qmi d , qtop , qbot , offset , 
iyl_rulel 1 ixl_rule2,iyL.rule2,Tx2_rule2,iy2_rule2 f 
i xl_rul e3 , cont rls , cont 1 Is , i roi S , shi f tmi d , n btop , f i ndi , 
magni fy) 

if (iteration. eq.l) then 
findi-'2" 

call quanti2(buf_image5 ,ncol , nlin, rribcage2 , 1 nbcage2 , 
rri bcage_no2 , 1 n bcage_no2 , qmi d . qtop , qbot ( offset , 
iyl_rulel,ixl_rule2,iy:LruTe2,ix2_rule2,iy2_rule2, 
ixLrule3,contr2s, contl 2s, iroiS, shi ftmid.ribtop.findi , 
magnify) 

end if 

call itime(time) 

writeCid,*) 'Warp and Subtraction completed at , 
time(l), time(2) . V. time(3) 

Evaluation of subtraction image (This will be done on 1st warping only. 

if (iteration. eq.l) then , % , 

if (contrls. 1 e. cont r2s. and. contl Is. le. cont 12s) then 
iswr=0 
iswl=0 
i f 1 ag=0 
end if 

i f (cont rls . gt . contr2s . and . contl Is . gt . contl 2s) then 
i swr^l 
iswl=l 
iflag=-l 
end if 

i f (contrls . le . contr2s . and . contl Is . gt. contl 2s) then 
i swr=0 
iswUl 
iflag=2 
end if 

if (contrls. gt. cont r2s. and. contl Is. le. cont 12s) then 
iswr=l 
iswl-0 
iflag=l 
end if 
end if 



Flip shift vectors for the right or the left lung, . 
when the histogram width of the left or the right lung obtained with 
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! majority shift-vector is greater than the histogram width obtained with 

! the minority shift-vector. Then, the minority shift-vector will be 

I employed for the correspoding lung. 

if (i loop. eq.l. and. iflag.ge.l) goto 1112 

! write shift maps to files (Roger) 

if (iteration. eq.l) then 

if (iflag .eq. -1) then ! Minority direction, so use shift map 2 

call writeimagefloat(buf_FX2, ' shi ftl. x .img\0' . ncol, nlin) 
call writeimagefloat(buf_FY2, ' shi ftl. y .img\0 , ncol, nlin) 
c write (*,*) •shiftMatrixlx(201,201) is ' , 6uf_FX2(201. 201) 

c write (*,*) , ShiftMatrixlY(201,201) is buf_Fx2 (201, 201) 

e l se . . , 

! Majority direction, so use shift map 1 

call writeimagefloat(buf_FXl, 'shiftl.x.img\0 , ncol, nlin) 
call writeimagefloat(buf_FYl, 'shiftl.y.imgNO' , ncol, nlin) 
c write (*,*) 'ShiftMatrixlX^Ol^Olj is ' Buf_FXl(201, 201) 

c write (*,*) ' shi ftMatri xlY(201,201) is ', buf_FXl(201, 201) 

end if 

elseif (iteration ,eq. 2) then 

! Majority direction is always used. 

call writeimagefloat(buf_FXl, ' shi ft2 . x . img\0' , ncol, nlin) 
call writeimagefloat(buflFYl, ' shi ft2 .y .img\0' , ncol, nlin) 
end if 

! - - — - — — — 

! Goto iterative warping process. 

! In this scheme, number of warping is two. 

if (iteration. It. num_ite) goto 1234 

! - - - — " 

I SAVE FINAL SUBTRACTED IMAGE 

!— — — — — — " " 

call Reverse_Value(buf_image3,ncol , nlin) 

call Save_Subtraction_ImageQ( buf_image3, ncol, nlin, 

1 DefFile, 

2 Prelmage, Curlmage, Sublmage) 

if ( save_dat .eq. 1 ) then . 

call Save_DataQ( number, sac, tpc, inc. region2, 

1 ncol, nlin, DX, DY, CC, buf_Fxl, buf_FYl, 

2 filel, file2, lengl, leng2, sas, tps, order ) 
end if 

call itime(time) 

write(id,*) 'process completed at , 
1 time(l), ':', time(2), ':', time(3) 



Memory release 



call free(p_FXl) 

call free(p_FYl) 

call free(p_FX2) 

call free(p_FY2) 

call f ree(p_image3) 

call f ree(p_imageS) 
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write(*,*) 'III Error in Local Matchi ng . ! ! I ' 
stop 
end if 

write(*,*) ' ! M ROI Selection Failed.!!!' 
stop 
end if 

I 

I END 

!- 

tti me»dti me (tarray) 

write(* 9123)ttime 
9123 formatC CONSUMED TIME(SEC) = ,f6.1) 

! stop 

return 

end 
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DENSITY_CORRECTION . f 



function densi ty_correction( image, ncol , nlin, DCTable ) 



Ver. 1.0 

written by Akiko Kano, Mar. 24, 1993 



This function performs a nonlinear density correction and returns the 
density-corrected image data instead of the original image data. 

(1) input image should have grayscale ranging from 0 to 1023, in which 
"0 corresponds to high optical density and "1023" corresponds to 
low optical density. 



ARGUMENTS 



implicit none 

integerM Densi ty_Correction 

integerM ncol, nlin ! Matrix Size of image Data [I] 

integer*2 image(ncol ,nlin) ! Original and Corrected image Data[i,0] 

integer*2 DCTable(2 , 1024) ! LUT for Density Correction [I] 

! DCTable(l,*) : Input Pixel value 
! DCTable(2,*) : Output Pixel value 



VARIABLES 



integer*4 C, L 



BEGIN 



do L = 1, nlin 

do C = 1, ncol 

image(C,L) = DCTable( 2, (image(C, L)+l) ) 

end do 
end do 

Densi ty_Correcti on = 1 



END 



return 
end 
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DETERMINE_MIDLINE . f 

function Determi ne_Midline( image, ncol, nlin, top, bottom, primid, 
1 mid_no, A, B ) 

Ver. 1.0 

written by Akiko Kano, Mar. 24, 1993 

This function determines midline of the chest based on smoothed hori- 
zontal profiles. The midline is described as "x - A * Y + B" using 
coefficients A and B. 

(1) Midline is determined by fitting points representing low density 
points in the mediastinum between top and bottom. 

(2) if the error in fitting is large, fitting is re-done excluding 
points with large error. 

(3) Returns "error" if the error is large even after the second trial. 



implicit none 

integer*4 Determi ne_Midl i ne 

integer*4 ncol , nlin 

integer*2 image(ncol , nli n) 

integer*4 top, bottom 

integerM primid 

integer*4 mid_no 

realM A, 8 



! Matrix Size of image Data 

! chest Image Data 

! Top and Bottom of Lung 

! Temporary midline 

! Number of Points 

I coefficients for "X ■= AY + B" 



VARIABLES 



real*4 PI, P.SDTHRESl, P_SDTHRES2, P_ERTHRES 

integerM P_HEIGHT1, P_HEIGHT2 , P_WINDOWl, P_WINDOW2, MAXNO 

parameter (PI=3. 141593) 

parameter f p_sdthres1«0.01, p_sdthres2«0.013, p_erthres-1, 5) 

parameter fP_HEIGHTl-8, P_HEiGHT2-6, P_WINDOWl«2 50, P_WINDOW2»100) 

parameter (MAXNO-20) 

character str*80 

integerM mi d (2 , MAXNO) 

integerM clin, mcol , height, window 

integerM I, 3 

realM x (MAXNO) , Y(maxno), error(MAXNO) 

realM sd_err, sdthresl, sdthres2 

integerM id 

integerM leng 

common /LOGFILE/ id 



FUNCTIONS 



integerM Determine_Midpoint, Least_square_lD 
integerM PutOutputF, UTL$STR_PRINT, UTL JFILE_WRITE 



1. SET CRITERIA 



sdthresl - nintf P_SDTHRESl * floatfncol) ) 
sdthres2 = nintC P_SDTHRES2 * float (ncol) ) 



2. SET SMOOTHING WIDTH FOR CALCULATION OF PROFILE 



do I « 1, mid_no 

clin - top + nint( float(bottom-top) 
if ( I.le.(mid_no+l)/2 ) then 
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DETERMINE_MIDLINE . f 
height - ( bottom - top ) / P_HEIGHTl 
window » ncol / P_WlNDOWl 

else 

height - ( bottom - top ) / P—HEIGHT2 
window » ncol / P_WIND0W2 
end if 

I 

I 3. DETERMINE MIDPOINTS 

call Determi ne„Midpoint( image, ncol, nlin, primid, clin, mcol, 
1 height, window ) 

mid(l,l) - mcol 

mid(2,l) » clin 

xfl) - float(mcol) 

Y(l) « floatCclin) 
end do 

! — 

! 4. FITTING (1) 

call Least_Square_lD( mid_no, Y, X, A, B, error, sd_err ) 

! 

I S. CHECK ERROR 

I — 

3-0 

do I - 1, mid_no 

if ( sd_err.le, sdthresl .or. abs(error(l)) . le . P_ERTHRES*sd_err ) 
1 then 

end if 
end do 

I— — 

! 6. FITTING(2) 

if ( J . 1 t . mi d_no ) call Least_Square_lD( J, Y, X, A, B, error, sd_err ) 

c leng » UTL$STR_PRINT( str, ' SD_err : X7.4f, sd_err ) 

c call PutOutputFC 'Xs' str ) 

C call UTL $ FI L E_WR ITE ( id, Str ) 

write(id,1000) ' SD_err : ', sd_err 
1000 format( A, F7.4) 

if ( sd_err.le.SDTHRES2 ) then 
Determine_Midline * 1 

else 

Determine_Midline =■ 0 
end if 

I- — 

1 END 

! 

return 



!... 

! 
I 

!-- 
! 



subroutine Determine_Midpoint( image, ncol, nlin, ccol , clin, mcol, 
1 height, window ) 



Ver. 1.0 

Written by Akiko Kano, Mar. 25, 



This function calculates smoothed horizontal profiles around a given 
Page 2 



DETERMI NE_MIDLINE . f 
line and detect the column with maximum profile value in the middle 1/3 
regi on. 



implicit none 

integerM Determi ne_Midpoint 
integerM ncol, nlin 
integer*2 i mage (ncol , nlin) 
integerM ccol 
integerM clin 
integerM mcol 
integerM height 
integerM window 



! Matrix Size of Image Data 

j image Data 

I Temporary Midline 

! Center Line for Calculation 

! column No. of Midpoint 

I No. of Lines for averaging 

I Half of No. of columns for averaging 



integerM width 

integerM C, L, CC, SC, SL, EC, EL 
integerM pro, minp 



BEGIN 



width - ncol / 3 

sc - maxf ccol-width/2+1, window* 1 ) 
EC » min( ccol+width/2 , ncol -window ) 
SL - maxf clin-height/2+1, 1 ) 
EL - min( clin+height/2, nlin ) 

mcol - sc 
minp ■ 0 

do C » SC-window, SC+window 

do L - SL+1, EL 

minp - minp + image(CL) 

end do 
end do 

do c = sc+1, EC 
pro - 0 

do CC ■ C-window, C+window 

do L » SL+1, EL 

pro » pro + image(CC.L) 

end do 
end do 

if ( pro. gt. minp ) then 

mcol ■ C 

minp =» pro 
end if 
end do 



END 



subroutine Least_Square_lD( N, X, Y, A, B, error, sd_err ) 



Ver. 1.0 

Written by Akiko Kano, 



Mar. 25, 1993 



This function performs a line fitting using least square method to 
determine coefficients A and B for "Y = A * X + B". 
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I....,......,,...**-.—.-.*— .,„.,„«**«....„ .,«„».-——... 

! ARGUMENTS 

I 

implicit none 

c integerM Least_Square_lD 

integerM N ! No. of Data Sets [I] 

realM X(N) , Y(N) ! Data . [I] 

realM A, B ! Determined Coefficients 

! for "Y - AX + B" [Ol 
realM error(N) I Error [o] 

realM sd_err ! Standard Deviation of Error [0] 

! 

! VARIABLES 

! 

integerM I 

realM av.err, SX, SY, SX2, SXY 

! 

! BEGIN 

I 

SX - Xfl) 
SY - Y<1) 
SX2 - Xfl)**2 
SXY - X(l) * Y(l) 

do I ■ 2, N 

SX - SX + Xfl) 

SY - SY + Y(I) 

SX2 - SX2 + Xfl)**2 

SXY " SXY + X(I) * Y(I) 
end do 

A - ( float(N)*SXY - sx*sy ) / ( float(N)*sx2 - sx**2 ) 
B « C SY - A*SX ) / float(N) 

av_err - 0.0 
sd_err * 0.0 
do I - 1, N 

error(l) - Y(l) - A*x(i) - B 

av_err « av_err + error(I) 

sd_err = sd_err + error(l)**2 
end do 

av_err « av_err / float(N) 

sd_err * sqrtf sd_err / float(N) - av_err**2 ) 
! END 

I 

return 
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diaphragm_detection.f 
subroutine of determination of diaphragm edges 
Name: diaphragm_detection 

Modified from diaphragm_ribcage_mark_lk_2.for 
requirement: ribcage detection frst 

*** 9/8/93 *** 

add rule-based left diaphragm edge detection: add a subroutine 
called diap_Left_SP, which finds candidates of left diaphragm 
edge starting points. The lung angle is old obtained by large 
increatments 76 deg for Right and 108 for Left something **** 

*** 9/24/93 *** 

The update reason has describe in readme. message; check it. 
f ********************************************************************* 

subroutine diaphragm_detection (image, ncol ,nlin, feature, 
% Rdi aph , Rdi aph_No , Ldi aph , Ldi aph_No , cf_r , cf_l ) 



implicit integer*2 (i-n) 

integer*4 ncol.nl in 
integer*2 image(ncol ,nlin) 
integer*2 feature(SO) 

integer*2 Rdi aph(2 , 1215) 

integer*2 Rdiaph_No 

integer*2 Ldiaph(2,1215) 

integer*2 Ldiaph_No 



! Matrix size of chest image[l] 

! inputed lk x lk chest image [I] 

! Landmark info, of chest image 

! from ribcage detection 

! Right diaphragm edges 1: x; 2 y.[o] 

! No. of right diaphragm edges 

! Left diaphragm edges 1: x; 2 y.[0] 

! No. of left diaphragm edges 



integer*2 nxw, nyh 

i nteger*2 xcoordjiori (1000) , ycoordjiori (1000) , 
xcoord_vert(1215) ,ycoord_vert(1215) , 
kx(100) , ky(100) , kx2 (100) , ky2 (100) , 
count ,countl,xc,yc,xf ,yf , bx.byup.bylow 

integer*2 di a_r(2 , 100) , di a_r_No 

i nteger*2 di a_l 1 (2 , 100) , di a_l l_No , di a_l 2 (2 , 100) , di a_l 2_No 

integer*2 hist_pixel (1024) 

real hi st_f req(1024) , hi st_f req_smo(1024) 
real cf_r(21) , cf J (21) 
real tempx(lOO) , tempy (100) , 

gradR(100),angR(100) p gradL(100) ,angL(100) 



' begine 



********************** 
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nxw- ncol 
nyh=nli n 

do i-1, 1024 

hist_freq(i)«0.0 

hi st_f req_smo(i ) -0 . 0 

hist_pixel(i)-0.0 

end do 

do 10 
cf_r(i)-0.0 
cf_l(i)-0.0 

end do 

do 1-1, 1000 

xcoordjiori (i)-0 
ycoordjiori (i)-0 

end do 

do i-1, 1215 

xcoord_vert(i)*0 

ycoord_vert(i)=0 
end do 
do i-1, 100 

kxfi)=0 

ky(i)=0 

kx2fi)-Q 

ky2(i)=0 

ky2(i)-0 

ky2 (i)=0 

tempx(i)=0.0 

tempy(i)=0.0 

gradR(i)-0.0 

angR(i)-0.0 

gradL(i)=0.0 

angL(i)=0.0 

dia_rfl,ij-0 

dia_r(2,i)=0 

dia_lia,i)=0 

dia_ll(2,i)-0 

di a_12(l,i)-0 

diaJ2(2,i)*0 
end do 

do 1-1, 1215 

Rdiaph(l,i)=-0 

Rdiaph(2,i)-0 

LdiaphCl,i)=0 

Ldiaph(2,i)=0 
end do 



di aphragm_detecti on . f 



c *** study rigth diaphragm edge *** 
c *** find start point: 

c y: primary lungBottom: . ,. . , , 

c X: center of cross point of lung angle line with lung bottom line 

c and minimum pv at center of lung level .previous method *** 

do i- 1,1000 

xcoord_hori(i)-i 

ycoordjiori (i)-feature(2) 
end do t! horizantol line at primary lung bottom 

cal 1 *strai ght_l i ne_sub(f eature (9) , feature (3) , f eatu re (11) , 
$ feature (5) , xcoord_vert,ycoord_vert, nyh, index) 
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c **** straight lung angle line 



diaphragm_detection.f 

(through right lung angle 76 degicorresponding 
c to corrected minimum positions at 1/5 and center of Tung length) ****** 

lndl-1 

call cross_p_2Jine_sub (xcoordjiori , ycoordjiori ,nxw,lndl, 
$ xcoord_ve rt , ycoord_vert , nyh , 1 nd2 , i xs , i ys) 

c ***** cross point of lung angle line and lung bottom line ***** 

ixs_D_r*int(0.5*float(feature(ll)+ixs)) 
iys_D_r*iys 

cc write(6,*)'ixs_D_r,iys_D_r' ,ixs_D_r,iys_D_r ! R dia. edge SP 

feature(15)-ixs+int(0.8*float(feature(15)-ixs))!R dia. inside limit 

c *** &&& end of finding start point of right diaphragm edge &&& *** 

xf-i x5_D_r 
gf«=iys_D_r 

byup-100 

bylow-100 

count=0 

countl-0 

ind»0 

i nddl-2 

c *** make roi and its histogram *** 
10 



xf-xc+30 !*** 



di aphragm_detecti on . f 
trace R dia. inside edges ** 



ixl=xf-bx 

if (ixl.le.l) ixl-2 
ix2=xf+bx 
iyl-yf-byup 



iy2=yf+bylow 
if (iy2.ge.nyh) 
countl=countl+l 



iy2=nyh-l 



if fxf.lt. feature(15)) then 
yf=yc 

cond-float(feature(15)-xf)/30. ! new add in v. 7 

if (cond.lt. 3.0) then ! check last two points y levels 

ind-1 
else 

ind-0 

end if 1 new add in v. 7 

byup=30 
bylow=30 
go to 10 
end if 

CCC***** tracing Right dia. outside edges ****ccccc 

xf=dia_r(l,l)-30 

yf-dia_r(2,l) 

byup-40 

bylow»60 

ind=0 

i nddl-1 



20 ixl=xf-bx 

if (ixl.le.l) ixl=2 
ix2=xf+bx 
iyl=yf-byup 
iy2*=yf+bylow 

if (iy2.ge.nyh) iy2=nyh-l 

c *** end of this part *** 

call Di aphragm_right(i mage, nxw, nyh, xf.yf.xc.yc, 
' byup,bylow,ind,inddl) 



incre=25 

if (countl.eq.l) then 
write(6, *)'*** %3&, SSS ### ®M ***' 

write(6,*) '*** right lung histogram info, at strat point 
cal 1 hi stograjn_roi_sub (image , nxw. nyh, i xl, i x2 , i yl, iy2 , 
i ncre , No, hi st_pi xel , hi st_f req) 

Njiist-1024 

inc=3 

cal 1 prof_smo_sub (hi st_f req , N_hi st , no , i nc , hi st_f req_smo) 
cal 1 hi stogram_analysi s (hi st_pi xel , hi st_f req_smo , No , i ncre 



bx.l 

count=count+l 
dia_r(l,count)=xc 
dia_r(2,count)-yc 
xf-xc-30 ! ***** tracim 



if (xf .gt.feature(14)) 

yf-yc 



ng R 
then 



R. dia outside edges 



write(6, 
end if 



i RHPV_lstpeak) 

> x%% $$$ ### r 



c *** end of this part *** 

ccc**** tracing Right dia. inside edge ****CCCCC 



cond=f1oat(xf-feature(14))/30. 
if (cond.lt. 2.0) then ! check last two points y levels 
ind=l 
else 
ind-0 
end if 
go to 20 
end if 

dia_r_No-count 

********** f-j t Hght diaphragm edges ***************** 
dia. edges' 



count-count+1 

dia_r(l,count)=xc 

dia_r(2,count)-yc 



;i mage , nxw, nyh , xf , yf , xc , yc , 
bx , byup , bylow, i ndex , i nddl) 
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wri te (6, *)' rearranged R. 
do i-l,dia_r_No 

kx(i)-dia_rfl,i) 

ky(i)-dia_r(2.i) 
end do 
k xy- 100 

cal 1 REarrange_S_L (kx , ky , kxy , di a_r_No) 
do i-l,dia_r_No 
wri te(6 , *) ' i , kx (i ) , ky (i ) : ' , kx (i ) , ky (i ) 
Page 4 



i do 



di aphragm_detecti on. f 



wri te(6, *) ' right diaphragm edge angle and gradient' 
inc«3 

do i=l,dia_r_No 

call gradient_east_south_sub(image,nxw, nyh,kx(i) , 
% ky(i) ,inc,inc,grad,ang) 

gradR(i)=grad 



angR(i)-ang 
wnte(6,*) grad 



ang: ' t gradR(i) p angR(i) 



end do 

grad_ave=0.0 
ang_ave«0 . 0 
do i-l,dia_r_No 

grad_ave=grad_ave+gradR(i ) 

ang_ave=ang_ave+angR(i ) 
end do 

grad_ave=»grad_ave/float(dia_r_No) 
ang_ave»=ang_ave/float(di a_r_No) 
wn te (6 , *) r grad_ave , ang_ave ' , grad_; 

sig_G-0.0 
sig^A-0.0 
do i-l,dia_r. 



ave , ang_ave 



i-l,dia_r_No 

;ig_G«(gradR(i)-grad_ave)*(gradR(i)-grad_ave)+sig_G 
i i g^A- ( ang R ( i ) - ang_ave ) * ( ang R (i ) - ang_av e ) +s i g^A 



si g_G-si g_G/f 1 oat (di a_r_No-l) 
sig^A-sig^A/float(dia_r_No-l) 
s i g_G»sq r t ( s i g_G) 
sig_>\*sqrt(sig_A) 

wnte(6,*V sigma of grad and ang distru. of R. dia' 
write (6,*) 'sig_G R & sig_A R ' , si g_G , si g_A 

ideg-3 

idegl-ideg+1 
ind-0 

do i-l,dia_r_No 

tempx(i)-float(kx(i)) 

tempy(i)=float(ky(i)) 
end do 

call kof i tc (tempx , tempy , di a_r_No , i degl , cf_r , i deg , i nd) 

Rdiaph_No-0 
iiis-feature(14) 
iiie=feature(15) 
do iiii-iiis,iiie 

Rdi aph_No=Rdi aph_No+l 

iix-iiii 

Rdi aph (1 , Rdi aph_No)«i i x 
call polyfitc_integer(iix,cf_r,ideg,iiy) 
Rdi aph (2 , Rdi aph_No) -i i y 
end do 

obtain the right diaphragm edges 



CCCCCCC ******* &&&&U& study left lung &&&&&&& %%%%%%% 

c *** find start point for left diaphragm *** 
i ndex=2 

call straightjline_sub(feature(10) ,feature(3) ,feature(12) , 
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di aphragm_detecti on . f 
& feature(5) ,xcoord_vert,ycoord_vert,nyh, index) 

lndl-1 
lnd2=2 

call cross_p_2_line_sub(xcoord_hori ,ycoord_hori .nxw.lndl, 
& xcoord_vert,ycoord„vert,nyh,lnd2 ,ixs_D_l ,iys_0_l) 



end of this part **** 



ixO-ixs_D_l 
iy0=dia_r(2,l) 



xf-ixO 
yf-iyf 



byup-35 'old 
bylow-130!old 



upper limit:y=x+12.25 (mm) 
lower limit:y=x-4S.S (mm) 



byup-73 !new; upper limi t:y«x+25 . 7 (mm) ; (ave+sg) 
bylow-129!new; lower limit:y»x-45.0 (mm) ; (ave+2*sg) 

1 pixel - 0.35 mm **** 

countl«l 

continue 

ixl-xf-bx 
ix2=xf+bx 

if (ix2.ge.nxw) ix2=nxw-l 

iyl-yf-byup 

iy2=yf+bylow 

if (iy2.ge.nyh) iy2=nyh-l 



. nyh , xf , yf . bx , byup , by 1 ow , 
i xsl , i ysl , i xs2 , i ys2 , countl , -i ndl , i nd2 , i RHPV.lstpeak) 



call Diap_left_5T(image, 
ixsl,iy<* 

write(6, . 

write (6,*) ' ixsl, iysl,ixs2 . iys2 ' ,ixsl, iysl, ixs2 ,iys2 
wri te (6 , *) ' i ndO , i ndl , i nd2 ' , countl, i ndl , i nd2 
wri te (6 , *) ' aaaaaaaaaaaaaaaaaaaaaaaaa 1 

if (countl. ge. 2) go to 40 



(ind2.eq.l) then I category D, 
xf-ixO 



shift roi half up 



iyl-iyO-byup 
iy2=iyl-(byup+bylow) 
yf-iy2+int(float(byup+bylow)/2.0) 
countl«countl+l 



2) then 



go to 30 
end if 

if (ind2.eq. 
Xt-ixO 
yf-iyO+bylow 
countl-countl+1 

Jfif 30 

continue 



category L , shift ROI half down 
! new change in this version 7 
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diaphragm_detection.f 



if (ind2.eq.3) then 
if (indl.eq.O) then 

itime-1 
else 
itime-2 
end if 
end if 

if (indl.eq.O) then 
dia_U(l,l)-ixsl 
dia 11(2, l)=iysl 

end if 

if (indl.eq.l) then 
dia_U(l,l)=ixsl 
diajll(2,l)-iysl 



ixs2 
=iys2 



dia_12(l,l)=ix 
dia_12(2,l)=iy 
end if 

do j-1. itime 
count«l 

c ****** tracing Left dia. outside edges ************ 
inddl=l 

if (j .eq.l) then 

xf-ixsl+30 

yf-iysl 
else 

xf-ixs2+30 

yf=iys2 
end if 

byup-40 
bylow»60 

if (xf .gt.feature(17)) go to 60 

50 continue 

ixl-xf-bx 
ix2=xf+bx 

if (ix2.ge.nxw) ix2-nxw-l 

iyl-yf-byup 

iy2=yf+bylDw 

if (iy2.ge.nyh) iy2=nyh-l 
cond=.float(feature(17)-xf)/30. 

if (cond.lt. 2.0) then ! check last two point levels 

ind=l 
else 

ind-0 
end if 

cal 1 Di aphragm_l eft (i mage , nxw , nyh , xf , yf , xc , yc , 
& bx , byup , by low, l nd , l nddl) 

count*=count+l 
if (j.eq.l) then 

dia_ll(l,count)=xc 

dia_ll(2,count)-yc 
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else 

dia_12(l,count)«xc 
di a_l 2 (2 , count)-yc 
end if 

xf*xc+30 l$JJ$ trace L dia. outside edges $$$$ 
if (xf.lt.feature(17)) then 

yf=yc 

go to 50 
ena if 

tracing Left dia inside edges ******* 

continue 
ind=0 
i nddl=2 

if (j.eq.l) then 
xf-di a_U(l,l)-30 
yf-di a_l 1(2,1) 
else 

xf=di a_12(l,l)-30 

yf-di a_l2(2,l) 
end if 
byup-30 
bylow-30 

continue 

ixl-xf-bx 
ix2=xf+bx 

if (ix2.ge.nxw) ix2-nxw-l 

iyl-yf-byup 

iy2=»yf+bylow 

if (iy2.ge.nyh) iy2»nyh-l 
index=0 

call Di aphragm_left(i mage, nxw, nyh, xf ,yf .xc.yc, 
bx, byup, by low, index.i nddl) 



count-count+1 
if (j.eq.l) then 

dia_ll(l. 

dia_.ur- 
else 



(l,count)=xc 
(2,count)=yc 

~dia_12(l, count) =xc 
dia_12(2,count)«yc 
end if 

xf-xc-30 !$$$$$ tracing Left dia 
if £xf .ge.feature(16)) then 

con^float(xf-feature(16))/30. 



if (cond.lt. 3.0) then 
ind=l 
else 
ind-0 
if 



inside edges SSSSSSS 



! new add in v. 7 



to 70 
if 



! check last four points y levels 



! new add in v. 7 



if (j.eq.l) then 
dia_ll_No»count 
else 
dia_12_No=count 

end if 
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end do 

end of the part to find left dia. edges following two ST candidates ' 
****** fit dia_ll *********************** 

writeC6, *)********** fit dia_U *************' 
write(6. *)'******************** *************< 

write(6,*) ' rearranged L. dia_U edges' 
do i*=l,dia__lL_No 

kx(i)«dia_U(l,i) 

kyfi)»dia_ll(2,i5 
end do 
kxy-100 

ca 1 1 REarrange_S_L (kx , ky , kxy , di a_l L_No) 
do 1-l,dia_ll_No 

write(6 1 *) , i,kx(i),ky(i):' ,kx(i),ky(i) 
end do 

write(6,*)'Left diaphragm edge angle and gradient (Ll)' 

inc*3 
do i«l,dia_lL_No 

call gradient_east_south_sub(image,nxw,nyh,kxCi) , 
% ky(i) ,inc,inc,grad,ang) 

gradL(i)-grad 
angL (i )=ang 

wnte(6,*) r grad,ang: ' ,gradL(i) ,angL(i) 
end do 

grad_ave=0.0 
ang_ave=0.0 
do dia_lL_No 

grad_ave«grad_ave+gradL(i) 

ang_ave=ang„ave+angL (i ) 
end do 

g rad_ave=g r ad_ave/f 1 oat (di a_l L_No) 

ang_ave»=ang_ave/float(dia_lL_No) 

wn te(6 , *) grad_ave , ang_ave ' ,grad_ave , ang_ave 

sig_G»0.0 

sig_A=»0.0 

do i-l,dia_lL_No 

s i g_G» (gradL(i)-g r ad_ave ) *(gradL(i)-g r ad_ave ) +s i g_G 
s i g_A- ( ang L ( i ) - ang_ave ) * ( ang L ( 1 ) - ang_ave ) +s i g_A 

end do 

si g_G*si g_G/f loat (di a_l L_No-l) 
si g_A«si g_A/f loat (di a_l L_NO-l) 
sig_G»sqrt(sig_G) 
sig_A-sqrt(sig_A) 

wnte(6,*) 'sigma of grad and ang distru. of Left dia_ll' 
write(6,*)'sig_G L, & sig_A L . ' , si g_G , si g_A 

ideg»3 

idegl=ideg+l 
ind-0 

do i-l,dia_lUNo 

tempx(i)«float(kx(i)) 

tempy(i)=float(ky(i)) 
end do 

cal 1 kof i tc ( tempx , tempy , di a_l L_No , i degl , cf_l , i deg , i nd) 
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sig=0.0 

do 1-l.d1a_lL.No 

call polyfitc_integer(kx(i),cf_l, ideg.iiy) 
si r (float(iiy-ky(T)))*(float(iiy-kyti))5+sig 

end do 

si g=si g/ (di a_l 1_no-1) 
sig«sqrt(sig) 

write (.6,*) ' residual a edge points & fitted ones', si g 
sig_Ll-s1g MM!!!!! 

ideg=l 

idegl=ideg+l 
i nd=*0 

call kofitc(tempx,tempy,dia_ll_No,idegl,cf_1 .ideg.ind) 
write(6, *)' slope of Ll. diaphragm edges: ' , cf_l (2) 
slope_Ll«abs(cf_l(2)) !!!!!!!! 



lope. 

write(6, *)'***** end of fitting of dia_U ************' 
?g *y ******************************************* ' 



cc write! 
c ******** end of fitting of dia_ll 



******************* 



** fit dia_12 ********************* 

if (indl.eq.l) then 

write(6,*) ********** fit dia_12 **** 
write(6, *)•******************** **** 

write(6,*) ' rearranged L. dia_12 edges' 
do i«l.dia_12_No 

kx2(i)=dia_12(l,i) 

ky2(i)=dia_12(2,i) 
end do 
kxv-100 

cal 1 REarranqe_S_L (kx2 , ky2 , kxy , di a_l 2_No) 
do i-l,dia_12_No 

write(6,*) , i 1 kx2(i),ky2(i):',kx2(i),ky2(i) 
end do 

write(6 p *)'Left diaphragm edge angle and gradient (L2) ' 
inc=3 

do i=l,dia_12_No 

cal 1 g radi ent_east_south_sub(i mage , nxw, nyh , kx2 (i ) , 
% ky2(i) .inc.inc, grad, ang) 

gradL(i)=grad 
angL(i)*=ang 

wnte(6,*) f grad,ang: ' ,gradL(i) ,angL(i) 
end do 

g rad_ave=0 . 0 
ang_ave=0.0 
do i =1 . dia^.No 

grad_ave-grad_ave+gradL(i) 



ang_ave«ang_ave+angL (i ) 



end do 

grad_ave-grad_ave/float(di a_12_No) 
ang_ave=ang_ave/f 1 oat (di a_l 2_No) 
wn te (6 , *) T grad_ave , ang_ave ' , grad_ave , a 



sig_G=0.0 
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sig_A-0.0 

do i-l,dia_l2_No 

sig_G-(gradL(i)-grad_ave)*(gradL(i)-grad_ave)+sig_G 
si q_A=(angL(i ) -ang_ave) * (angL (i ) -ang_ave) +si g_A 

end do 

si g_G-si g_G/f loat (di a_l 2_No-l) 



si g_A-si g_A/f loat (di a_l 2_No-l) 



irad and ang distru. of Left dia_l2' 
sig_A L . ' , si g_G , si g_A 

ideg-3 

idegl-ideg+1 
ind=0 

do i=l,dia_l2_No 

tempx(i)«float(kx2(i)) 

tempy(i)-float(ky2(i)) 
end do 

cal 1 kof i tc (tempx , tempy , di a_l 2_No , i degl , cf_l , i deg , i nd) 
sig-0.0 

do i-l,dia_l2_No 

call polyfitc_integer(kx2(i) ,cfjl .ideg.iiy) 
• (float(iiy-ky2(i)))*(float(iiy-ky2(i)))+sig 



sig«sig/(dia_12_No-l) 
'sqrt(sig) 

write(6,*) ' residual a edge points & fitted ones', sig 



end i 

sig-L ... , 
sig=sqrt(sig) 

wn te(6,*) ' 

sig_L2-sig 

ideg«l 

idegl=ideg+l 
ind-0 



cal 1 kof i tc (tempx , tempy , di a_l 2_No , i degl . cf _1 , i deg , i nd) 
write(6,*)' slope of L2 diaphragm edges:' ' 
slope_L2=abs(cf_l(2)) 



write(6.*) 
write(6,*) 



,cfj(2) 

n****?**2r*nni?s*sr**i*^]**nn!nnn*' 

end if 

***** ena > 0 f fitting of dia_12 *********************** 
add rule-based method ****************** 
i ndex=0 

if (indl.eq.O) then MM!! only one SP in left 

write(6,*) '***Ll is good***' 

index-1 

go to 1000 
end if 



if (indl.eq.l) then MMI two SP in left 
if C(s' 



(slope_Ll.le. 0.35). and. (slope_L2.gt. 0.35)) then 



write(6,*) 
i ndex=l 



***Ll is good* 



go t 
end if 
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if (indl.eq.l) then ! ! ! ! two SP in left 

if ((slope_L2.1e. 0.35). and. (slope.Ll.gt. 0.35)) then 
write(6,*) '***L2 is good***' 
index-2 



go to 1000 
ena if 
end if 

if (indl.eq.l) then !!!!! two SP in left 
if (((slope_Ll. ge. 0.35). and. (slope_12.ge. 0.35)). 
X or. ((slope_Ll. le. 0.35). and. (slope_12.1e. 0.35))) then 



***L2 is good* 1 
***L1 is good***' 



if (sig_ll.lt.sig_12) then 
write(6,*) '***Ll is good*' 
i ndex»l 

else if (sigJI2.1t.sig_U) then 

write(6,*) 11 

i ndex=2 
else 

write (6,*) 
i ndex-1 
end if 

end if 
end if 

continue 

write(6,*) 'index(left dia selection) :' .index 

if (index. eq.l) then 
do i«=l,dia_lL_No 

tempx ^i)=float^kx^) 



tempy(i)=float( 
end do 
ideg-3 

idegl-i deg+1 
ind=0 

cal 1 kof i tc (tempx , tempy , di a_l L_No , i degl , cf_l , i deg , i nd) 

Ldiaph_No=0 
iiis«feature(16) 
iiie=feature(17) 
do iiii=iiis,iiie 

Ldi aph_No=Ldi aph_No+l 

iix=iiii 

Ldiaph(l,Ldiaph_No)-iix 
call polyfitc_integer(iix,cf_l .ideg.iiy) 
Ldi apn(2 , Ldi aph_No) =i i y 
end do 

else if (index. eq. 2) then 
do i=l,dia_12_No 

tempx(i)=float(kx2(i)) 

tempy£i)=float£ky2(i)) 
end do 
ideg»3 

idegl-ideg+1 
ind=0 

cal 1 kof i tc (tempx , tempy , di a_l L_No , i degl , cf_l , i deg , i nd) 
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Ldi aph_No«0 
iiis=feature(16) 
iiie=feature(17) 
do iiii-iiis.iiie 

Ldi aph_No«Ldi aph__No+l 

iix"iiii 

Ldi aph(l , Ldi aph_No)=i i x 
cal 1 pol yf i tc_i nteger (i i x , cf_l , i deg , i i y) 
Ldi apn(2 , Ldi aph_No)-i iy 
end do 



di aphragnudetecti on . f 



else 

write (6, 
end if 



)'the rule-based selection is fail' 



Di aphragm_Ri ght . for 

subrouti ne Di aphragm_Ri ght (i mage , nxw , nyh , xf , yf , xc , yc , 
& bx,6 yup,bylow,indl,md2) 



implicit integer*2 (i-n) 

integer*2 image(nxw.nyh) , 

& xf.yf, 

& xc.yc, 

& bx,byup,bylow, 

& indl, 



! image buffer 

! former dia. edge point x & y coordinates 

! current dia. edge point x&y coordinates 

! half size of search boxs 

i compare yc and yf; *0 no comparison; 

' «1, do comparison;if yc le. yf, corr. yc 
' nde; 



& ind2 !=1, trac outside; -2 fac inside 

j.***********************************************************-^^-* - 

real prof (500) , prof_smo(500) , fd(SOO) 
integer*2 posi_fd(500) , pp_mi n, pp_~ax 

real*8 sum 

do i -1,500 

prof(i)-0.0 

prof_smo(i)=0.0 

fd(i)=0.0 

posi_fd(i)=0 
end do 

xc«xf 

ix_start=xf-bx 

if (ix_start.le.l) ix_start«2 
ix_end=xf+bx 
iy_start*yf-byup 
iy_end=yf+bylow 

if (iy_end.ge.nyh) iy_end=nyh-l 

c **** range for profle calculation **** 
sum-0.0 
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do iy-iy_start,iy_end 
k=iy-iy_start+l 
do ix«nx_start,ix_end 

sum-sum+f loat (i mage (i x , i y) ) 
end do 

sum»sum/float(ix_end-ix_start+l) 
prof (k)=sum 
sum-0.0 
end do 



iN=iy_end-iy_start+l 
im=500 



00 
inc-15 

call prof_smo_sub (prof , mm , NN , i nc , prof_smo) 
inc2=3 

cal 1 f d_north_sub (prof_smo , posi_f d , fd , mm , nn , i nc2 , No_f d) 

c *** &&& find right diaphragm edge points &&& *** 

fd_mi n=fd (1) 

pp_mi n=l 

do k«2.No_fd 

if (fd(k).lt.fd_min) then 
fd_mi n-fd(k) 
pp_mi n=k 
end if 
end do 

yc-i y_start+posi_fd (pp„mi n) -1 



if £i ndl.eq.l)_then 



(yc.le.yf) then 
do k=pp_min+l, No_fd-l 
kl=k+l 

if (fd(kl).lt.fd(k)) then 
k_search»kl 

3o to 5 
if 

end do 

if (ind2.eq.l) then 

yc=yf+17 ! from data base 

else 

yc=yf 
end if 
go to 10 



fd_mi n»fd(k_search) 

pp_mi n=k_search 

do k-k_search+l,No_fd 

if (fd(k).lt.fd_min) then 
fd_min-fd(k) 

enSVf^^ 
end do 

yc=i y_start+posi _f d(pp_mi n) -1 
end if 
nd if 
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Di aphragm_l e f t . f o r 



subroutine Diaphragm_l eft (image, 

bx.byup.by 



implicit integer*2 (i-n) 



nyh.xf ,yf ,xc,yc, 
yiow.indl.ind2) 



integer*2 image(nxw, nyh) , 

& xf.yf, 

& xc.yc, 

& bx.byup.bylow, 

& indl. 

X ind2 



! image buffer 

! former dia. edge point x&y coordinates 

! current dia. edge point x&y coordinates 

! half size of search boxs 

! compare yc and yf; -0 no comparison; 

! -1, do comparison; if yc le. yf, corr. yc 



real prof (500) , prof_smo(500) , fd(SOO) 
i nteger*2 posi_fd(500) , pp_mi n , pp_max 

real*8 sum 

do i-1,500 
prof(i)-0.0 

?rof_smo(i)=0.0 
d(i)-0.0 
posi_fd(i)=0 
end do 

xc*xf 

ix_start=xf-bx 

if (ix_start.le.l) ix_start-2 
i x_end=xf+bx 
i y_start=yf-byup 
i y_end=yf+byl ow 

if (iy_end.ge.nyh) iy_end=nyh-l 

range for profle calculation **** 
sum-0.0 

do iy=iy_start, iy_end 
k"iy-iy_start+l 
do ix=ix_start,ix_end 

sum=5um+fl oat (i mage (ix.iy)) 
end do 

sum*=sum/f loat(i x_end-i x_start+l) 
prof (k)=sum 
sum=0.0 
end do 

NN*=iy_end-iy_start+l 

mm=500 

inc=15 
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di aphragm_detecti on . f 
cal 1 prof_smo_sub (prof , mm , nn , i nc , prof_smo) 

inc2=3 

cal 1 f d_north_sub (prof_smo , posi_f d , f d , mm , nn , i nc2 , No_f d) 

c *** &&& find left diaphragm edge points &&& *** 

fd_mi n=fd(l) 
pp_mi n«l 
do k=2,No_fd 



if (fd(k).lt.fd_min) then 

fd_mi n-fd(k) 

pp_mi n=k 
end if 
end do 

yc=i y_start+posi_f d (pp_mi n) -1 

if (indl.eq.l) then 
if (yc.le.yf) then 
do k«=pp_min+l, No_fd-l 

if (fd(kl).lt.fd(k)) then 

k_searcn=kl 

go to 5 
end if 
end do 

if (ind2.eq.l) then 

yc=yf+17 ! from data base 

else 

yc-yf 
end if 
go to 10 

continue 

f d_mi n*f d (k_search) 

pp_mi n-k_search 

do k=k_search+l,No_fd 

if (fd(k).lt.fd„min) then 
fd_min-fd(k) 
pp_mi n-k 
end if 
end do 

yc»iy_start+posi_fd(pp_min)-l 
end if 
end if 



hi stogram_anal ysi s . for 



subrouti ne histogram_analysis(hist_pixel , hi st_f req.No.bin, 
% PV.lstpeak) 
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implicit integer*2 (i-n) 



integer*2 hi st_pi xel (1024) , 
& bin, 

% pvllstpeak ! output; the PV at 1st peak position of the 

! histogram 



real 



PV_lstpeak 
hist_freq(1024) 



integer*2 posi_fd_hi st(1024) , p_low, p_up, p„med, width 
real fd_hist(1024) 

do i "1.1024 

posi_fd_hist(i)=0 

fd_hist(i)«0.0 
end do 

c *** width of histgram: from 1% accumalation of both sides 

accum-0.0 
do i-l,No 

accum-accum+hist_freq(i)*float(bin) 

if (accum.ge.1.0) then 
p_low=hist_pixel(i) 

fto 5 
if 

end do 
5 continue 

accum-0.0 
do i-No,l,-l 

accum=accum+hist_freq(i)*float(bin) 
if (accum.ge.1.0) then 
p_up«hist_pixe 1 (i) 
go to 10 
end if 
end do 
10 continue 

width=p_up-p_low 
cc write(6,*) 'width: ' ,width ( p_low,p_up 

c *** end of this part *** 

c *** find Number of peak in the histogram **** 

N_hist=1024 
lnd-1 

cal 1 fd_south_sub(hi st_f req , posi _f d_hi st , f d_hi st , 
& N_hi st , no , 1 nd , No_f d_hi st) 



No_peak=0 

do i-l,No_fd_hist-l 

i f"((fd_hi st (i ) . ge . 0 . 0) . and . (f d_hi st (i 1) . 1 1 . 0 . 0) ) then 

No_peak*=No_peafc+l 
end if 
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end do 

cc write (6,*) 'No. of peak: * ,No_peak 

No_valley— 1 
doi»l,No_fd_hist-l 

i f "((f d_hi st (i ) . 1 e . 0 . 0) . and . (f d_hi st (i 1) . gt . 0 . 0) ) then 

No_val 1 ey=No_val 1 ey+1 
end if 
end do 

cc write(6,*)'No. of valley: ' ,No_val ley 

c *** end of this part *** 

c *** find max peak position, i.e. the pixel value at 
c the position where has max histogram value. *** 

max_pixel*=hist_pixel (1) 
f req_max=hi st_f req (1) 
do i*2,No 

if (hist_freg(i) .gt.freq_max) then 
f req _max-hi st_f req (i ) 
max_pi xel *=hi st_pi xel (i ) 
end if 

end do , . 

cc write(6,*) 'max_p1xel' ,max_pixel !pv where has max. hist, value 

c *** end of this part *** 

c *** find maximum pixel at peak, i.e. the pixel value at the 
c 1st peak position of the histogram *** 

do i-No_fd_hist,2,-l 
il-i-1 

if ((fd_hist(i),lt.0.0).and.(fd_hist(il).gt.0.0)) then 
max_pi xel_peak=posi_fd Jri st(i l)*bi n 
go to 20 
end if 
end do 
20 continue 

cc wri te(6 , *) ' max_pi xel.peak , max_pi xel_peak 

PV_lstpeak=!max_pixel_peak ! PV where is 1st peak posi. 

c *** find minimum pixel at peak *** 

do i=l,No_fd_hist-l 

i f = ( (f d_hi st (i ) . gt . 0 . 0) . and . (f d_hi st (i 1) . 1 1 . 0 . 0) ) then 
min_pixe1_peak«posi_fd_hist(i)*bin 

rto 30 
if 

end do 

30 continue . , . 

cc write(6,*)'min_pixel_peak' ,min_pixel_peak I PV where is 2nd peak 

c *** end of this part *** 

c *** part of find mediant pixel value of histogram *** 

accum-0. 0 
do i-l,No 

accum=*accum+hi st_f req(i ) *f 1 oat(bi n) 

if (accum.ge. 50.0) then 
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p_med=»hist_pi xel (i ) 

go to 40 
end if 
end do 
conti nue 

write(6,*)'mediam pixel value of hist:',p_med 



Diap_Left_ST.for (a subroutine for finding starting point of 
left diaphragm edges) 

*************! 



i ne Di ap_Lef t_ST(i mage , nxw . nyh , xf , yf . bx , byup , byl ow, 
i xsl , i ysl , i xs2 , i ys2 , i ndO , l ndl , i nd2 , i RHPV_lstPeak) 



implicit integer*2 (i-n) 

integer*2 i mage (nxw, nyh) , 

& xf.yf, 

& ixsl.iysl, 

% ixs2,iys2, 

& bx.byup.bylow, 

% i ndO , 

& indl, 

% ind2, 

X i RHPV_lstPeak 



! image buffer 

! initial input of x,y cood for L dia. 

! 1st L dia. ST. 

! 2nd L dia. ST. 

! half size of search boxs 

! -1,1st time call;=2 2nd time due to shift 

! -O.edge ratio R<- 0.55; one ST. (1st) 

I -l.edge ratio R> 0.55; two STs 

I -l.cate D; «2 cate L; =3 other cate. 

! input; The PV at 1st peak posi of right 
Idiap. ST roi.for cate. L and D classifi. 



**************************** 



real prof (500) , prof _smo(500) , fd(500) ,fd_smo(500) 
integer*2 posi _fd (500) 

real hi st_f req (1024) , hi st_f req_smo(1024) 
integers hist_pixei(1024) 



do i*l,500 
prof(i)=0.0 
prof_smo(i)=0.0 
fd(i)-0.0 
fd_smo(i)=0.0 
posi_fd(i)-0 

end do 

ind2-3 

ixsl=xf 
ixs2=xf 

ix_start 
if " 



: (ix_start.le.l) ix_start-2 
ix_end=xf+bx 
iy_start=yf-byup 
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iy_end=yf+bylow 

if (iy_end.ge.nyh) iy_end-nyh-l 

c ***** above is search ROi ************* 

c ***** histogram in the ROI ************ 

ixl-ix_start 

ix2-ix_end 

iyl-iy_start 

iy2-iy_end 

incre=25 

call hi stogram_roi_sub (image, nxw, nyh, ixl,ix2,iyl,iy2, 
& i ncre , No , hi st_pi xel , hi st_f req) 

cc wri te(6 ,*)'*** left lung histogram info, at start point ***' 
N_h-1024 

cal 1 prof_smo_sub(hi st_f req , N_h , No , i nc , hi st_f req_smo) 

cal 1 hi s togranuanalysi s(hi st_pi xel , hi st_f req_smo , No , 
X incre.iLHPV_lstpeak) 

c **** finish of this part: analysis of the Histogram in ROI 

c **** range for profle calculation **** 

sum-0.0 

do iy-iy_start,iy_end 
k=iy-iy_start+l 
do ix-ix_start,ix_end 

sum-sum+float(image(ix,iy)) 
end do 

sum-sum/float(ix_end-ix_start+l) 
prof (k)-sum 
sum=0.0 
end do 

NN-i y_end-i y_start+l 
kk-15 
mm- 5 00 
i nc-3 

cal 1 prof_smo_sub(prof ,mm,NN , kk, prof_smo) 

cal 1 fd_north_sub(prof_smo , posi_f d , f d , mm , nn , i nc , No_f d) 
m«int(float(inc-l)/2.0) 
cal 1 prof_smo_sub (f d , mm , NN , i nc , f d_smo) 

c *** &&& find left diaphragm edge starting points &&& *** 

c *** find first min: mi n_F , f d_mi n_F *** 

fd_mi n_F»fd_smo(m+l) 
mi n_F=m+l 
do k=m+2,No_fd-m 

if (fd_smo(k).lt.fd_min_F) then 
fd_min_F=fd_smo(k) 
min_F=k 
end if 
end do 

cc wri te (6 , *) * P . mi n_F ; f d_mi n_F ' , posi__f d (mi n_F) , f d_mi n_F 
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! min_F is related to iysl ******************** 
end of this part *** 



find range of firts min *** 



il=j-3 

if (fd_smo(jl).lt.fd_smo(j)) then 



do j»=min_F,m+2,-3 

4 ' t'd_smo(jl) 
limit_left=jl 
go to S 
end if 
end do 

11 mi t_left=0 

wri te(6 ,*)' left side no change' 
continue 

do j «mi n_F , No_f d - (m+1) , 3 

_smo(il).lt.fd_smo(j)) then 



jl=j+3 

if (fd_smo(il) 
limit_right=jl 

§o to 10 
i f 

end do 

limi t_right=0 

wri te(6, *)' right side no cheange' 
conti nue 

if ((limitJleft.ne.O).and. (limi t_right . ne . 0)) then 
write (6,*) ' range of first mi n: ' , posi_fd(limi t_left) , 
%posi_fd(limi t_right) 
end if 

end of this part *** 

find second min position: min_S, fd_min_S *** 

if (limit_left.ne.Q) then 
mi n„left=m+l 
fd_mi n_left=fd_smo(m+l) 
do k-m+2 , limi t_l eft 

if (fd_smo(k) .1t.fd_min_left) then 
fd_mi n_l ef t=fd_smo(k) 
mi n_left=k 
end if 
end do 

wri te (6 , *) ' f d_mi n_l eft , mi n_l eft ' , f d_mi n_l eft , posi_f d (mi n_l eft) 
end if 

if (limit„right.ne.O) then 

mi n_right*limi t_right 

fd_mi n_ri ght=f d_smo(l i mi t_ri ght) 

do k«limit_right+l, No_fd-m 

if (fd_smo(k) . lt.fd_min_right) then 
fd_mi n_right=fd_smo(k) 
mi n_right-k 
end if 
end do 

wri te (6 , *) ' fd_mi n_ri ght , mi n_ri ght ' , f d_mi n_ri ght , posi_fd (mi n_ri ght) 
end if 
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if ((limit_left.ne.O).and.(limit_right.ne.O)) then 
if ffd_min_left.le.fd_min_right) then 

fd_mi n_S-f d_mi n_l eft 

mi n_S=mi n_left 
else 

f d_mi n_S«fd_mi n_ri ght 

mi n_S=min_right 
end if 
end if 

if ((limit_left.ne.O).and.(limit_right.eq.O)) then 

mi n_S=mir_.left 

fd_mi n_s-f d_mi n_l eft 
end if 

if (|(limit_left.eq.O).and.(limit_right.ne.O)) then 

mi n_S*min_right 

fd_mi n_S»f d_mi n_ri ght 
end if 

if ((limit_1eft.eq.0).and.(limit_right.eq.0)) then 

min_S=mi n_F 

f d_mi n_S=0 . 0 
end if 

wri te (6 , *) ' P . mi n_S ; f d_mi n_S ' , posi_fd (mi n_S) , f d_mi n_S 
! min_s»posi_fd(min_S) is related iys2. 

rati o=f d_mi n_S/f d_mi n_F 
ldist«posi_fd(mi n_s)-posi_fd(min_F) 

wri te (6 , *) ' rati o»f d_mi n_S/f d_mi n_F : ' , rati o 
write(6,*) ' di stance=mi n_s-mi n_F: ' .Idist 

>************* end of this part *************** 

' max FD value between min_s and min_F **** 

if (mi n_S.lt. mi n_F) then 

istart~min_S 

i end=mi n_F 
else 

istart=mi n_F 

iend=min_S 
end if 

fd_max=fd_smo(i start) 

max_fd=»istart 

do i=istart+l,iend 

if (fd_smo(i) ,gt.fd_max) then 
fd_max»fd_smo(i) 
max_fd=i 
end if 
end do 

write (6,*) 'P. max_FD;max_fd in range :', posi_fd(max_fd) , fd_max 



If (ratio. le. 0.55) then 

i ysl=i y_s tart+posi_f d (mi ruF) -1 
i ndloO 
go to 110 
else 
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if (indO.ge.2) then 

i ysl=i y_start+posi_f d (mi n_F) -1 

iys2»i y_start+posi_fd(min_S)-l 

i ndl=l 

ind2=3 

go to 110 
end if 
end if 

-********** appling rule-based scheme only in 1st call *************** 

abs_lstmi n*abs (f d_mi n_F) 
abs_2ndmi n=abs(fd_mi n_S) 

if ((abs_2ndmin.le.l.72).and.(abs_lstmin.le.2.61)) then 
if (fd_max.gt.6.0) then 
write(6,*)' category of LG' 
indl=l 
go to 20 
en_ if 

write(6,*) ' could be cate. L and D ' 

thresh-1.444*f loat(i RHPV_lstpeak) -465 .444 

iLHth-int(thresh) 

if (ilHPV_lstpeak.ge.iLHth) then 

indl=l 

ind2-l 

wri te(6,*) ' category D' 
go to 110 
end if 

if (iLHPV_lstpeak.lt.iLHth) then 
indl-1 
ind2-2 

write(6,*) 'category l' 
go to 110 
end if 
end if 

wri te (6 , *) ' categori es : A2 , NG , c ' 
continue 



i ysl-i y_s tart+posi_f d (mi n_F) -1 
iys2-iy_start+posi_fd(mi n_s)-l 
indl=l 
ind2=3 

• end of this part *** 
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Name 

Function 
Author 



Oi comlitil.c- 



DicomUtil. c 

Utility for Reading Dicom Header 
SHIGE 04/27/98 

Shi ge Modi f i ed 06/17/99 



The following functions are included, 



void 
unsigned short 
unsigned long 
void 
void 
void 
void 
void 
void 



getKanaTable 
getshortlnt 
getLonglnt 
putshortlnt 
putLonglnt 
putcharstr 
elimSpace 
ShortCutTime 
Modi fyPatName 



struct FcrDicom getFcrOi comlnfo 
struct ThvDicom getThvDi comlnfo 
void put FcrDi comlnfo 

voi d pu tThvOi coml nf o 



#i nclude 
#i nclude 
#i nclude 
#i nclude 
#i nclude 
#i nclude 



<stdio.h> 

<stri ng.h> 

<std1ib.h> 

<ctype.h> 

<math.h> 

"TempSub.H" 



#ifdef BYTE_ORDER 

#if BYTE_ORDER » LITTLE_ENDIAN 

int _isMachi neLowEndi an = 1; 
#else 

int _isMachineLowEndian - 0; 
#endif 
#else 

int _isMachi neLowEndi an = 0; 
#endif 



// byte.order is defined by /usr/includes/sys 



#define 
#define 



char 
/*..., 



64 

101 



charTab [NCHAR] [4] ; 



?etKanaTabl e . > 
1/03/98 



Coded by Shige 



void getKanaTableO 

strcpyfcharTab 
strcpy tcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyicharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 



wo") ; 

'ya ) ; 
yo") ; 
x"); 
T'5; 
E"); 
ka"); 
'KU") ; 
'KO") ; 



strcpy' 
strcpy 
strcpy 
strcpy 
strcpy 
strcpy 
strcpy 
strcpy 
strcpy 
strcpy 
strcpy 
strcpy 
strcpy 
strcpy 



charTab 
charTab 
charTab 
charTab 
charTab 
charTab 
^charTab 
(charTab 
'charTab 
charTab 
charTab 
charTab 
(charTab 
(charTab 
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V 




3, 


m 


5' 




7 


,"TSi/'); 


9 


11 


, "A") ; 


13 


, "U") ; 


15 


. "o"; ; 


17 


•: k KV' 


19 


, KE ) i 


21 


, "SA") ; 

■:: su ::^ 


23 


25 


,"SO"); 


27 


, "CHI' 1 ) ; 



strcpy 
strcpy 
strcpy 
strcpy 
strcpyi 
strcpyi 
strcpyi 
strcpyi 
strcpyi 
strcpyi 
strcpyi 
strcpyi 
strcpyi 
strcpyi 
strcpy 
strcpyi 
strcpyi 
strcpy 
strcpy 
strcpy 
strcpy 
strcpyi 
strcpy^ 
strcpy 
strcpy 
strcpy 
strcpy 
strcpy 
strcpy 
strcpy 
strcpy 
strcpy 
strcpy 
strcpy 
strcpy 
strcpy 
strcpy 

/*■ 



'charTab 

charTab 
^charTab 

charTab 
'charTab 
'charTab 
t charTab 
t charTab 
] charTab 
; charTab 

charTab 
, charTab 
, charTab 

charTab 
' charTab 
.charTab 
, charTab 
,charTab 
( charTab 

charTab 
t charTab 
t charTab 
( charTab 
( charTab 
( charTab 
t charTab 
t charTab 

charTab 
^harTab 

charTab 
t charTab 
.charTab 
J charTab 
t charTab 
^harTab 
t charTab 
.charTab 



DicomUtil . c 
; strcpyfcharTab' 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTabi -t-> 
strcpyfcharTab , 45 
strcpyfcharTab" ^ 7 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpy (charTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 
strcpyfcharTab 



Function getshortlnt 



unsigned short getshortlntfchar *buf) 

* /* We are writing DICOM, so pixels should be stored as low-endian. 
if the machine is high endian, we need to byte swap. */ 

int shouldsyteswap «= !_isMachineLowEndian; 
char c; 
unsigned short *us; 

if (shouldByteSwap) 

c =. buf[0]; buf[0] 

us = (unsigned short*)buf; 
return *us; 
} 

/*, 



buf [1] ; buf[l] « c; 



Function getLonglnt 



unsigned long getLonglnt(char *buf) 



/* We are writing DICOM, so pixels should be stored as low-endian. Thus, 
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DicomUtil .c~ 
if the machine is high endian, we need to byte : 
int shouldByteSwap - !_isMachi neLowEndi an; 
char c; 
unsigned long *ul ; 
if (shouldByteSwap) 



c - buf [01; buf [01 = buf [31 
c = buf[lj; buf[l] - buf [2] 

ul =» (unsigned long*)buf; 

return *ul ; 

} 



buf[31 
buf[2] 



Function putshortlnt 



void putShortInt(char *header, unsigned long ph, 

unsigned long dLen, 
unsigned short val) 

/* we are writing DICOM, so pixels should be stored as low-endian. 
if the machine is high endian, we need to byte swap. */ 

int shouldByteSwap - !_i sMachi neLowEndi an ; 
char *pc; 
unsigned long i ; 

if (shouldByteSwap) 

val = ((val & OxFFOO) » 8) | ((val & OxOOFF) « 8); 

pc « (char*)&va1 ; 

for (i * 0; i < dLen; i++) header[i + ph] = pc[i]; 



Function putLonglnt 



void puttonglnt(char *header, unsigned long ph, 

unsigned long dLen, 

unsigned long val) 

/* we are writing dicom, so pixels should be stored as low-endian. 

if the machine is high endian, we need to byte swap. */ 
int shouldByteSwap * !_isMachi neLowEndi an; 
char *pc; 



unsigned long 

if (shouldByteSwap) 

val - (fval & OxFFOOOOOO) 
(fval & OxOOFFOOOO) 
(fval & OxOOOOFFOO) 
((val & OxOOOOOOFF) 

} 



« 8) 
« 24) 



?c ■ (char*)&val ; 
or (i - 0; i < dLen; i++) header[i + ph] - pc[i]; 



Function putcharstr 



void putcharstr(char *header, unsigned long ph, 

unsigned long dLen, 
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char *buf) 

unsigned long i ; 
unsigned long bLen; 

for (i - 0; i < dLen; i++) header[i + ph] - ' '; 
bLen - strlen(buf) ; 
if (bLen <- dLen) { 

for (i = 0; i < bLen; i++) header[i + ph] » buf[i]; 

} 

else { 

for fi =* 0; i < dLen; i++) header[i + ph] = buf[i]; 
} } 



Function elimSpace 



void elimSpacefchar *buf, unsigned long *n) 



for (i -0: i < *n; i++) { 

if fbuf[i] « ' ') buf[i] =• 0; 
else break; 

for (1 - *n - 1; i >- 0; i— ) { 
if (buf[i] == ' ') buf[i] - 0; 
else break; 
} 

c - 0; 

for O - 0: i < *n; i++) { 
if (buf [J] I- 0) buf [C++] - buf[i]; 

buf[c] - 0; 
*n - c; 
> 



Function ShortCutTime(char *TexTime) 



void ShortCutTime (char *TexTime) 
char buf [128] ; 

extern int trimchafchar* , char*, char, char); 

strcpy(buf, TexTime); 
fvoid)trimcha(TexTime, buf, '/', '•'); 

/*=, 



Function Modi fyPatName 
Remarks: Alphanumeric characters 

are not affected. 



void ModifyPatNamefchar *buf, unsigned long *nc) 

int 1. j, cl, cf; 
i nt f 1 ag ; 

char LastName[128] , Fi rstName[128] ; 
char auf[128] ; 
int p, n; 

Page 4 



Last Name 



cl =* flag - 0; 
for (i = 0; i < *nc; i++) 
if (isalnumUinObuf m 
((unsigned char)buf[i 



I I 



obuf m >' _ _ 

Unsigned char)bufri] I- OxBO)) { 
LastName [cl++J = buf[i]; 
flag « 1; 

else if (flag != 0) goto LABELl; 

if^flao — 0) { 

printf("No Patient Name\n") ; 
strcpy(buf , "UnknownPatientName") ; 
*nc = 18; 
return; 

else { 

LastName[cl] - 0; 
strcpy(auf, LastName); 
*nc =» cl ; 
goto LABEL 3; 



0xA6 && (unsigned char)buf[i] <- OxDF && 



First Name 



num((int)buf [}]) | I 
gned charlbufm >= 
gned charjbufm \~ 
iame[cf++] - buf[j] ; 



0xA6 && (unsigned char)buf [j] <- OxDF && 
Ox B0)) { 



LABELl: 

LastName[cl] - 0; 
cf - flag = 0; 
for (j - i + 1; j 

if (isalnum((int)buf [ 
(Cunsigne 
(unsigned 
Fi rstName 
flag ■= 1 

else if (flag I- 0) goto LABEL2 ; 

if (flag — 0) { 

strcpy(auf, LastName); 
*nc = cl ; 
goto LABEL3; 

LABEL2 : 

Fi rstName [cf] - 0; 

sprintf(auf, "Xsjfis", LastName, Fi rstName); 
*nc - cl + cf + 1; 



Conversion of Kana to Alphabet 



LABEL 3 

e - 9 

for ( 
if 



(j - 0; j < *nc; ]++) { 
((unsigned char)auf[j] !- OxDE && ( 
if ( ! (isalnum((int)auf M}) II (unsi 
if ((unsigned char)aufh +11 '- f 
' ' )auf[j + 1] 



(unsigned char; 
(unsigned char. 



(unsigned char)auf[j] !» OxDF) { 
signed char)auf[j] ** '_') ) { 
■ OxDE && 
> OxDF) { 
Page 5 



DicomUtil.c- 
(unsigned char)0xA6; 



charTab[k][i]; 



50; 



k = (unsigned char)auf[j] 
n - strlen(charTab[k]); 
for (i = 0; i < n; i++) buf[p++] 

else if ((unsigned char)auf[j + 1] « OxDE) { 
k » (unsigned char)auf[j] - (unsigned char)0xA6 
n - strlen(charTab[k]) ; 
for (i = 0; i < n; i++) buf[p++] = charTab[k] [i] ; 

else if ((unsigned char)auf[j + 1] — OxDF) { 

k » (unsigned char)auf[j] - (unsigned char)0xA6 + 60; 
n » strlen(charTab[k]) ; 

for (i « 0; i < n; i++) buf[p++] - charTab[k] [i] ; 

else buf[p++] ■ auf [j] ; 

buf[p] - 0; 
*nc » p; 

/*— _ — - — — - -- — 

Function getFcrDicomlnfo() 

Remarks: Kana characters and alphabets are 

available in the Patient's Name. 

SNBBIECStfi3SUSimSISSGSXSS9CflllUIBESSSI89CSIBl SBBESJSI323CSWQ9: 

struct FcrDicom getFcrDi comlnfo(FlLE *fp, char *FcrDcmHeader) 

int i ; 

int ns.nl; 

char *buf; 

FILE *fq; 



unsigned short 
unsigned long 

unsigned short 

unsigned long 

void 

void 

void 

void 



gTag, eTag; 
dLen, gLen; 

getShortlnt(char*) ; 
getLongInt(char*) ; 
elimspace(char*, unsigned long*); 
ModifyPatName(char*, unsigned long*); 
getKanaTableO ; 
ShortCutTime(char*) ; 



char 
char 
char 
int 
int 



PatBDate[CLEN] ; 
patSex[CLEN] : 
EDRMode [CLENJ ; 
ImageSize ; 
Headersi ze ; 



/* Patient Birth Date */ 

/* Patient Sex */ 

/* EDR Mode */ 

/* image Size (Bytes) */ 

/* Header Size (Bytes) */ 



struct FcrDicom fcr; 



Read Kana Table 



ns - 2; nl » 4; Headersize =* 0; 

fcr.Date[0] = fcr.Time[0] - fcr.PatName[0] - fcr.PatID[0] -= 0; 
buf = new char [MAX_FCR_DCM_HEADER_SIZE] ; 



getKanaTableO ; 



Read dicom Header 
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while (ns «» (int)f read(buf , si zeof (char) , ns, fp)) { 

for (i - 0; i < ns; i++) FcrDcmHeader[HeaderSize + i] ■ buf[i]; 
Headersize » Headersize + ns; 

?Tag « getShortInt(bufl ; 
read(buf, si zeof (char) , ns, f p) ; 
for (i - 0; i < ns; i++) FcrDcmHeader [Headersize + i] * buf[i]; 
Headersize - Headersize + ns; 
eTag * getshortlnt(buf) ; 
fread(buf, si zeof (char) , nl , f p) ; 

for (i - 0; i < nl; i++) FcrDcmHeader[Headersize + i] = buf[i]; 
Headersize « Headersize + nl ; 
dLen = getLonglnt(buf) ; 

if (gTag -« study_group) { 
switch (eTag) { 
case date_element: 

fread(buf, si zeof (char) , dLen, f p) ; 

for (i - 0; i < dLen; i++) FcrDcmHeader[HeaderSize + i] = buf[i]; 

Headersize - Headersize + dLen; 

for (i -= 0; i < dLen; i++) fcr.Date[i] « buf[i]; 

fcr.Date[dLen] = 0; 

elimSpace(fcr.Date, AdLen) ; 

break; 

case TIME_ELEMENT: 

fread(buf, si zeof (char) , dLen, f p) ; 

for (i - 0; i < dLen; i++) FcrDcmHeader[Headersize + i] • buf[i]; 
Headersize = Headersize + dLen; 
for (i « 0; i < dLen; i++) fcr.Time[i] - buf[i]; 
fcr. Time [dLen] - 0; 
elimSpace(fcr .Time, AdLen) ; 
ShortCutTirne (fcr. Time) ; 
break ; 
default: 

fread(buf, sizeof (char) , dLen, f p) ; 

for (i - 0; i < dLen; i++) FcrDcmHeader[Headersize + 1] - buf[i]; 
^ Headersize - Headersize + dLen; 

else if (gTag =™= P ATI E NT_G RO U P ) { 
switch (eTag) { 

case NAM E_E L EME NT : 

fread(buf, si zeof (char) , dLen, f p) ; 

for (i » 0; i < dLen; i++) FcrDcmHeader[Headersize + i] = buf[i]; 
Headersize * Headersize + dLen; 

for (i = 0; i < dLen; i++) fcr.PatName[i] * buf[i]; 
fcr. PatName [dLen] - 0; 
ModifyPatName(fcr.PatName, &dLen) ; 
break; 
case id_element: 

fread(buf, si zeof (char) , dLen, f p) ; 

for (i - 0; i < dLen; i++) FcrDcmHeader[HeaderSize + i] = buf[i]; 

Headersize - Headersize + dLen; 

for (i - 0; i < dLen; i++) fcr.PatlD[i] - buf[i]; 

fcr.PatID[dLen] - 0; 

elimSpace(fcr.PatID, &dLen) ; 

break; 

case BIRTH_ELEM£NT: 

fread(buf, si zeof (char) , dLen, f p) ; 

for (i - 0; i < dLen: i++) FcrDcmHeader[HeaderSize + i] » buf[i]; 
Headersize - Headersize + dLen; 
for (i = 0; i < dLen; i++) PatBDate[i] - buf[i]; 
PatBDate[dLen] - 0; 
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break; 
case SEX_ELEMENT: 

fread(buf, si zeof (char) , dLen, f p) ; 

for (i - 0; i < dLen: i++) FcrOcmHeader[Headersize + i] = buf[i]; 
Headersize - Headersize + dLen; 
for (i * 0; i < dLen; i++) PatSex[i] « buf[i]; 
Patsex[dLen] =» 0; 
break; 
default: 

fread(buf, si zeof (char) , dLen, f p) ; 

for (i - 0; i < dLen; i++) FcrocmHeader[Headersize + i] = buf[i]; 
Headersize ■ Headersize + dLen; 

} 

else if (gTag — edr_group) { 
switch (eTag) { 

case MODE_ELEMENT: 

fread(buf, si zeof (char) , dLen, f p) ; 

for (i - 0; i < dLen; i++) FcrDcmHeader[Headersize + i] - buf[i]; 
Headersize - Headersize + dLen; 
for (i - 0; i < dLen; i++) EDRMode [i ] - buf[i]; 
EDRMode[dLen] - 0; 
break; 
default: 

fread(buf, si zeof (char) , dLen, f p) ; 

for (i - 0; i < dLen; i++) FcrDcmHeader [Headersize + i] - buf[i]; 
Headersize ■ Headersize + dLen; 



else if (gTag IMAGE_GROUP) { 
switch (eTag) { 
c as e rows_el ement: 

fread(buf, sizeof (char) , dLen, f p) ; 

for (i - 0; i < dLen; i++) FcrDcmHeader[HeaderSize + i] * buf[i]; 
Headersize » Headersize + dLen; 
fcr. Row = (int)getshortlnt(buf) ; 
break ; 

case COLUMN5_ELEMENT: 

fread(buf, si zeof (char) , dLen, f p) ; 

for (i = 0; i < dLen; i++) FcrDcmHeader [Headersize + i] « buf[i]; 
Headersize - Headersize + dLen; 
fcr. Col * (int)getshortlnt(buf); 
break ; 

case DEPTH_ELEMENT: 

fread(buf, si zeof (char) , dLen, f p) ; 

for (i » 0; i < dLen; i++) FcrDcmHeader[HeaderSize + i] - buf[i]; 
Headersize - Headersize + dLen; 
fcr.NBit - (int)getshortlnt(buf); 
break; 
default: 

fread(buf, sizeof (char) , dLen, f p) ; 

for (i - 0; i < dLen; i++) FcrDcmHeader[Headersize + i] - buf[i]; 
^ Headersize = Headersize + dLen; 

else if (gTag » IP_GROUP) { 
switch (eTag) { 

case SCAN_EL EMENT: 

fread(buf, si zeof (char) , dLen, f p) ; 

for (i =0; i < dLen; i++) FcrDcmHeader [Headersize + i] 
Headersize - Headersize + dLen; 
for (i - 0; i < dLen; fcr.Dir[i] « buf[i]; 

fcr.Dir[dLen] - 0; 
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buf[i]; 



Di comuti 1 . c~ 

break; 

case IPSIZE_ELEMENT: 

fread(buf, si zeof (char) , dLen, f p) ; 

for (i - 0; i < dLen; i++) FcrDcmHeader[HeaderSize + i] - buf[i]; 
HeaderSize - HeaderSize + dLen; 

for (i - 0; i < dLen; i++) fc r . IPSi ze [i ] - buf[i]; 
fcr. IPSi ze [dLen] - 0; 
break; 
default: 

fread(buf, sizeof (char) , dLen, f p) ; 

for (i - 0; i < dLen; FcrDcmHeader[HeaderSize + i] - buf[i]; 

HeaderSize - HeaderSize + dLen; 

else if (gTag — PIXEL_GROUP) { 
switch (eTag) { 

Case IMSIZE_ELEMENT: 

imagesize - dLen; 

fcr. HeaderSize * HeaderSize; 

delete buf; 

return fcr; /* RETURN TO main program */ 
default: 

fread(buf, sizeof (char) , dLen, f p) ; 

for (i » 0; i < dLen: i++) FcrDcmHeader[HeaderSize + i] - buf[i]; 
HeaderSize * HeaderSize + dLen; 

} > 
else { 



Skip Group 



fread(buf, si zeof (char) , dLen, f p) ; 

for (i - 0; i < dLen; i++) FcrDcmHeader[HeaderSize + i] « buf[i]; 
HeaderSize = HeaderSize + dLen; 



> /* End of while */ 
pnntf("Wrong DICOM Header\n"); exit(0); 

/*- — 

Function getThvDi comInfo() 



struct ThvDicom getThvDi comlnfo(FILE *fp, char *THVHeader) 

int i ; 

int ns.nl; 

char *buf; 

FILE *fq; 



unsigned short 
unsigned long 



gTag , eTag ; 
ilen, gLen; 



unsigned short getShortInt(char*) ; 

unsigned long getLongInt(char*) ; 

void elimspace(char*, unsigned long*); 

void ShortCutTime(char*) ; 



char PatBDate[CLEN] ; 

char PatSexfCLEN] ; 

int imagesize; 

int HeaderSize; 

struct ThvDicom thv; 



/* Patient Birth Date */ 
/* Patient Sex */ 
/* image Size (Bytes) */ 
// Header Size(Bytes) 
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ns * 2; nl - 4; HeaderSize «= 0; 
thv.Date[0] = thv.Time[0] - thv.PatName[0] 

buf - new char[MAX_THV_HEADER_SIZE] ; 
/* 



thv.PatiD[0] - 0; 



Read dicom Header 



while (ns — (int)fread(buf , sizeof (char) , ns, fp)) { 

for (i ■= 0; i < ns; i++) THVHeader [HeaderSize + 1] ■ buf[i]; 
HeaderSize - HeaderSize + ns; 
gTag - getshortlnt(buf) ; 



iread(buf, si zeof (char) , ns, fp): _ 
for (i * 0; i < ns; i++) THVHeader[HeaderSize + i] « buf[i]; 
HeaderSize - HeaderSize + ns; 
eTag • getshortlnt(buf) ; 
fread(buf, si zeof (char) , nl , f p) ; 

for (1 - 0; i < nl; i++) THVHeader[HeaderSize + i] - buf[i]; 
HeaderSize - HeaderSize + nl ; 
dLen - getLonglnt(buf) ; 

if (gTag — STUDY.GROUP) { 
switch (eTag) { 

case DATE_ELEM£NT: 

fread(buf, si zeof (char) , dLen, f p) ; 

for (i - 0; i < dLen; i++) THVHeader[Headersize + i] - buf[i]; 

HeaderSize - HeaderSize + dLen; 

for (i ■ 0; i < dLen; i++) thv.Date[i] - buf[i]; 

thv.Date[dLen] - 0; 

break; 

case time_element: 

fread(buf, si zeof (char) , dLen, f p) ; 

for (i * 0; i < dLen; i++) THVHeader[HeaderSize + i] - buf[i]; 
HeaderSize - HeaderSize + dLen; 
for (i - 0; i < dLen; i++) thv.Time[i] - buf[i]; 
thv.Time[dLen] - 0; 
elimSpace(thv.Time, &dLen) ; 
shortCutTime(thv.Time) ; 
break; 
default: 

fread(buf, sizeof (char) , dLen, f p) ; 

for (i = 0; i < dLen; i++) THVHeader [HeaderSize + i] = buf[i]; 
^ HeaderSize = HeaderSize + dLen; 

else if (gTag « PATIENT_GROUP) { 
switch (eTag) { 

case NAME_ELEMENT: 

fread(buf, si zeof (char) , dLen, f p) ; 

for (i - 0; i < dLen; i++) THVHeader[Headersize + i] * buf[i]; 
HeaderSize -= HeaderSize + dLen; 

for (i » 0; i < dLen; i++) thv. PatName[i ] = buf[i]; 
thv.PatName[dLen] - 0; 
elimSpace(thv.PatName, &dLen) ; 
break; 
case ID_ELEMENT: 

fread(buf, si zeof (char) , dLen, f p) ; 

for (i * 0; i < dLen; i++) THVHeader[HeaderSize + i] - buf[i]; 
HeaderSize - HeaderSize + dLen; 
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for (i - 0; i < dLen; i++) thv.PatiD[i] - buf [1] ; 
thv.PatID[dLen] «= 0; 
elimSpace(thv.PatlD, &dLen) ; 
break; 

Case BIRTH_ELEMENT: 

fread(buf, si zeof (char) , dLen, f p) ; 

for (i - 0; i < dLen; i++) THVHeader[HeaderSize + i] - buffi]; 
HeaderSize - HeaderSize + dLen; 
for (i - 0; i < dLen; i++) PatBDate[i] - buf[i]; 
PatBDate[dLen] - 0; 
break; 
case SEX_ELEMENT: 

fread(buf, sizeof (char) , dLen, f p) ; 

for (i - 0; i < dLen; i++) THVHeader[Headersize + i] = buf[i]; 
HeaderSize = HeaderSize + dLen; 
for (i * 0; i < dLen; i++) Patsex[i] - buf[i]; 
PatSex[dLen] » 0; 
break; 
default: 

fread(buf, si zeof (char) , dLen, f p) ; 

for (i * 0; i < dLen; i++) THVHeader[Headersize + i] - buf[i]; 
^ HeaderSize « HeaderSize + dLen; 

else if (qTag « CRSERIES_GROUP) { 
switch (eTag) { 

case VIEW_ELEMENT: 

fread(buf, si zeof (char) , dLen, f p) ; 

for (i » 0; i < dLen; i++) THVHeader[HeaderSize + i] = buf[i]; 
HeaderSize = HeaderSize + dLen; 
for (i » 0; i < dLen; i++) thv.Dir[i] - buf [i 3 ; 
thv.Dir[dLen] = 0; 
break ; 
default: 

fread(buf, si zeof (char) , dLen, f p) ; 

for (i - 0; i < dLen; i++) THVHeader [Headersi ze + i] - buf[i]; 
^ HeaderSize - HeaderSize + dLen; 

else if (gTag IMAGE_GROUP) { 
switch (eTag) { 

case ROWS_E L EM ENT : 

fread(buf, si zeof (char) , dLen, f p) ; 

for (i » 0; i < dLen; i++) THVHeader[Headersize + i] - buf[i]; 
HeaderSize - HeaderSize + dLen; 
thv. Row « (int)getshortlnt(buf) ; 
break; 

Case COLUMN S_ELEMENT: 

fread(buf, si zeof (char) , dLen, f p) ; 

for (i - 0; i < dLen; i++) THVHeader[Headersize + i] - buf[i]; 
Headersize = HeaderSize + dLen; 
thv. Col - (int)getshortlnt(buf) ; 
break; 

case DEPTH_ELEMENT: 

fread(buf, si zeof (char) , dLen, f p) ; 

for (i - 0; i < dLen; i++) THVHeader[Headersize + i] - buf[i]; 
HeaderSize » HeaderSize + dLen: 
thv.NBit = (int)getshortlnt(buf) ; 
break; 
default: 

fread(buf, sizeof (char) , dLen, f p) ; 

for (i ■ 0; i < dLen; i++) THVHeader[HeaderSize + i] - buf[i]; 
HeaderSize * HeaderSize + dLen; 
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else if (gTag « pixel_group) { 
switch (eTag) { 

case IMSIZE.ELEMENT: 

imagesize - dLen; 

thv. Headersize = HeaderSize; 

delete buf; 

return thv; /* RETURN TO MAIN PROGRAM */ 
default: 

fread(buf, si zeof (char) , dLen, f p) ; 

for (i - 0; i < dLen; i++) THVHeader[HeaderSize + i] - buf[i]; 
HeaderSize * HeaderSize + dLen; 

else { 

/* 

Skip Group ^ 

fread(buf, si zeof (char) , dLen, f p) ; , 

for (i - 0; i < dLen; i++) THVHeader[HeaderSi ze + i] - buf[i]; 

HeaderSize = HeaderSize + dLen; 

} } /* End of while V 
pnntf ("Wrong DICOM Header\n M ); exit(0); 



Function 
you can cl 



itFcrDicomlnfoO 



pUtFi 
nangi 



Exam date (date and time), 
Patient's name, 
Patient's ID number, 
IP Scanning direction, 
IP Size, 
Number of rows, 
Number of columns, 
Number of pixels. 



void putFcrDicomlnfo(char *FcrOcmHeader, FcrDicom dcm) 



buf [32] ; 

nbyte « dcm. col * dcm. Row * sizeof (short) ; 



// Pointer of FcrDcmHeader 



unsigned short gTag, eTag; 
unsigned long dLen; 

unsigned long ph - 0; 
int ns - 2; 

int nl - 4; 

unsigned short getShortInt(char*) ; 
unsigned long getLongInt(char*) ; 

void putShortlnt(char*, unsigned long, unsigned long, unsigned short); 
void putLonglnt (char*, unsigned long, unsigned long, unsigned long); 
void putcharStr (char*, unsigned long, unsigned long, char*); 



Modify DICOM Header Information 



while (ph < dcm. HeaderSize) { 

for (i " 0; i < ns; i++) buf[i] - FcrDcmHeader[ph + i]; 
gTag - getshortlnt(buf) ; ph » ph + i 
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for (i - 0; i < ns; i++) buf[i] - FcrDcmHeader[ph + i]; 
eTag - getshortlnt(buf) ; ph - ph + ns; 
for (i - 0; i < nl; buffO - FcrDcmHeader[ph + i]; 

dLen - getLonglnt(buf) ; ph = ph + nl ; 

if (gTag — STUDY_GROUP) { 
switch (eTag) { 

case DATE_ELEMENT: 

putCharStr(FcrDcmHeader, ph, dLen, dcm.Date); break; 
case DATE_ELEMENT1: 

putCharStr(FcrDcmHeader, ph, dLen, dcm.Date); break; 
case DATE_ELEMENT2 : 

putCharStr(FcrDcmHeader, ph, dLen, dcm.Date); break; 
case TIME_ELEMENT: 

putCharStr(FcrDcmHeader, ph, dLen, dcm.Time); break; 
case TIME_ELEMENTl: 

putCharStr(FcrDcmHeader, ph, dLen, dcm.Time); break; 
case TIME_ELEMENT2 : 

putCharstr(FcrDcmHeader, ph, dLen, dcm.Time); 
ih « ph + dLen; 



oh - i 



else if (gTag « PATIENT_GROUP) { 
switch (eTag) { 

case NAME^ELEMENT: 

putCharStr(FcrDcmHeader, ph, dLen, dcm. PatName) ; break; 
case ID_ELEMENT: 

putCharStr(FcrDcmHeader, ph, dLen, dcm.PatID); 

p^h « ph + dLen; 

else if (gTag « IP_GROUP) { 
switch (eTag) { 

case SCAN_ELEMENT: 

putCharStr(FcrDcmHeader, ph, dLen, dcm.Dir); break; 
case IPSIZE_ELEMENT: 

putCharStr(FcrDcmHeader, ph, dLen, dcm.IPSize); 



Dh^~ ph + dLen; 

else if (gTag « image_group) { 
switch (eTag) { 

case ROWS_ELEMENT: 

putShortInt(FcrDcmHeader, ph, dLen, (unsigned short)dcm. Row) ; break; 
case COLUMNS_ELEMENT: 

putShortlnt(FcrDcmHeader, ph, dLen, (unsigned short)dcm.col ) ; 

^h = ph + dLen; 

else if (gTag -= PIXEL_group) { 
if (eTag — Imsize_element) { 
ph a ph - nl ; 

putLonglnt(FcrDcmHeader, ph, (unsigned long)nl, (unsigned long)nbyte); 
|3h = ph + nl ; break; 

|ah - ph + dLen; 

else { 

ph - ph + dLen; 
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Function putThvDi comlnfo() 



void putThvDicomlnfo(char *THVHeader, ThvDicom thv) 



i ; 

buf[32] ; 

nbyte - thv. Col * thv. Row * si zeof (short) ; 

§Tag, eTag; 
Len; 



char 
int 

unsigned short 
unsigned long 

unsigned long ph = 0; 
int ns = 2; 

int nl = 4; 

unsigned short getShortlnt(char*) ; 
unsigned long getLongInt(char*) ; 



// Pointer of THVHeader 



isigned long getLongInt(char*) ; 

lid putShortlnt(char*, unsigned long, unsigned long, unsigned short); 

lid putLonglnt (char*, unsigned long, unsigned long, unsigned long); 

lid putcharstr (char*, unsigned long, unsigned long, char*); 



Modify DICOM Header Information 



while (ph < thv.Headersize) { 

for (i « 0; i < ns; i++) buf[i] = THVHeaderCph + i]; 

gTag ■= getshortlnt(buf) ; ph »■ ph + ns; 

for (i - 0; i < ns; i++) buf[i] - THVHeader [ph + i); 

eTag - getshortlnt(buf) ; ph - ph + ns; 

for (i =* 0; i < nl ; i++) buf[i] = THVHeader [ph + i]; 

dLen = getLonglnt(buf) ; ph * ph + nl ; 

if (gTag «« study_group) { 
switch (eTag) { 

case date_ELEMENT: 

putCharStr(THVHeader, ph, dLen, thv. Date); break; 
case DATE_ELEMENT1: 

putCharstr(THVHeader, ph, dLen, thv. Date); break; 

Case DATE_ELEMENT2; 

putCharstr(THVHeader, ph, dLen, thv. Date); break; 
case TIME_ELEMENT: 

putcharStr(THVHeader, ph, dLen, thv. Time); break; 
case TIME_ELEMENT1: 

putCharStr(THVHeader, ph, dLen, thv. Time); break; 
case TIME_ELEMENT2 : 

putcharStr(THVHeader, ph, dLen, thv. Time); 

|3h ■ ph + dLen; 

else if (gTag « crS£RIES_group) { . 
if (eTag =-= view_element) putcharstr(THVHeader, ph, dLen, thv.Dir); 
|3h « ph + dLen; 

else if (gTag — IMAGE_group) { 
switch (eTag) { 
case rows_element: 

putshortmt(THVHeader, ph, dLen, (unsigned short) thv. Row) ; break; 
case COLUMNS_ELEMENT: 

putshortmt(THVHeader, ph, dLen, (unsigned short) thv. col) ; break; 
case depth_element: 

putShortInt(THVHeader, ph, dLen, (unsigned short)thv.NBit) ; break; 
case DEPTH_ELEMENT1 : 
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Di comuti 1 . c- 

putshortlnt(THVHeader, ph, dLen, (unsigned short) (thv. NBi t - 1)); 

|3h ■ ph + dLen; 

else if (gTag — PIXEL_GROUP) { 
if (eTag « IMSIZE_ELEMENT) { 
ph ■ ph - nl ; 

putLonglnt (THVHeader, ph, (unsigned long)nl, (unsigned long)nbyte); 
Dh - ph + nl; break; 

ph - ph + dLen; 

else { 

ph - ph + dLen; 
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SUBROUTINE EPCT2 (IP , J P , ISX , ISY , 1X5 , IXE , IYS , IYE , NC , IPROC , ITIME) 



c 
cs 


CALL 


EPCT2 (IP, J P , ISX, ISY, IXS , IXE , IYS , IYE , NC , IPROC , ITIME) 


c 


-kick-kit 


CYDAWCTOM O mMTPArTTHM ********************************** 


C 

CK 




EXPANSION, CONTRACTION, BINARY PICTURE 


C 

CD 




AUG 25, 1973, PROGRAMMED BY J.TORIWAKI 


CD 




JUNE 7, 1975, REVISED BY J.TORIWAKI 


CD 




JUNE 7, 1979, REVISED BY M.TANAKA 


CD 




SEPT 20, 1979, SPIDERED BY M.TEZUKA 


CD 




JULY 19, 1980, REFORMED BY E.UENO 


C 

CA 


***** 


IP(ISX,ISY)= INPUT BINARY PICTURE 


CA 


***** 


T D^TCV TCV"^ C\\ ITDI |~T DTMADV DTfTI ID C 

J r ^IbX , = UU I ru 1 dXINAKY rLK. 1 UKb 


CA 


***** 


ISX,ISY=HAIRETSU KP NO OOKISA 


CA 


***** 


IXS,IXE,IYS,IYE= IX=IXS---IXE, IY=IYS---IYE NO HANI NOMI 


CA 


***** 


SYORI SURU 


CA 


***** 


IPROC=0 CONTRACTION 


CA 


***** 


1 EXPANSION 


CA 


***** 


ITIME=EXPANSION MATAWA CONTRACTION NO KAISU 


CA 


***** 


NC=RENKETSU-SEI NO SHITEI =4 4-RENKETSU , 


CA 


***** 


8 8-RENKETSU . 


C 
CN 


***** 


BINARY PATTERN NOMI NI TSUKAERU *********** 


CN 
C 

c 




THIS ROUTINE CALLS EXNB 



implicit integerM (i-n) 
INTEGERM IP(ISX,ISY) 
INTEGERM JP(ISX,ISY) 

C 

c 



DO 100 IY=1,ISY 

DO 100 IX=1,ISX 

JP(IX,IY)=IP(IX,IY) 
100 CONTINUE 
C 

JSX=ISX 
JSY=ISY 

C 

IF(IPROC.NE.O) GO TO 1000 

C 

q ic -kick CONTRACTION ****************************************** 

DO 10 11=1, ITIME 

CALL EXNB2(JP, JSX, JSY, IXS, IXE, IYS, IYE, 0,1,2, NC) 

C 

DO 30 IY=IYS,IYE 

DO 30 IX=IXS,IXE 

IF(JP(IX,IY).EQ.2) JP(IX,IY)=0 
30 CONTINUE 
10 CONTINUE 
C 

RETURN 

C 

q **** EXPANSION ******************************************************** 

1000 CONTINUE 

DO 20 11=1, ITIME 

CALL EXNB2(JP, JSX, JSY, IXS, IXE, IYS, IYE, 1,0,2, NC) 

C 

DO 35 IY=IYS,IYE 
DO 35 IX=IXS,IXE 
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IF(JP(IX,IY) .EQ.2) JP(IX,IY)=1 
35 CONTINUE 
20 CONTINUE 
C 

RETURN 
END 
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c 

cs 
c 

CP 
CP 
CP 

c 

CK 
CD 
CD 
CD 
CD 
CD 
C 

CA 

CA 

CA 

CA 

CA 

C 

C 



C 
C 



15 
20 
10 
C 



exnb2.f 

SUBROUTINE EXNB2 (KP , ISX , ISY , IXl , 1X2 , IYl , IY2 , Nl , N2 , N3 , NC) 

CALL EXNB2 (KP , ISX , ISY , IXl , 1X2 , IYl , IY2 , Nl , N2 , N3 , NC) 

*** 2-JIGEN HAIRETU NO ARU-BUBUN RYOOIKI NAI 0 SEARCH SHITE 
*** ARU-ATAI (N2) 0 MOTU TEN NO KIBAN NO UCHI ARU-ATAI (Nl) O 
*** MOTU TEN NO ATAI NOMI 0 ARU-ATAI (N3) Nl KAERU. 



ifttit 
*** 
*** 



NEIBOUR 



JUNE 29, 
SEPT 20, 
JULY 19, 



PROGRAMMED BY S.YOKOI 



REVISED 
REVISED 

1979, SPIDERED 

1980, REFORMED 



1979, 



BY J.TORIWAKI 
BY T.HASEGAWA 
BY M.TEZUKA 
BY E.UENO 



*** KP(ISX.ISY) ; INPUT AND OUTPUT 

*** IXl, 1X2, IYl, IY2 ; SHORIHANI NO SHITEI 

*** N1.N2 ; HANTEI JYOKEN 

*** N3 ; DAINYU SURU ATAI 

*** NC ; DAINYU GIKO SHITEI 



*** 
*** 
*** 
*** 
*** 



implicit integer*4 (i-n) 
integer*4 KP(ISX,ISY) 



& 
& 
& 
& 
& 
& 
& 
& 
& 



DO 10 1=1X1,1X2 

DO 20 J=IYl,IY2 
IF(KP(l,J). 
K4=(KP(I-2, 
(KP(I+1, 
CKPCl-2, 
CKP(I+1, 
CKPCl-2, 
CKPCl+1, 
(KP(I-2, 
CKP(I+1, 
CKPCl-2, 
(KP(I+1, 
IF(K4.NE.O) 
KP(l, J)=N3 
GO TO 20 
CONTINUE 
CONTINUE 
CONTINUE 

RETURN 
END 



NE.N2)GO 
J-2)-Nl) 



J-2)-Nl) 
J-D-Nl) 
J-D-Nl) 
J)-N1) 
J)-N1) 
J+D-Nl) 
J+D-Nl) 
J+2)-Nl) 
J+2)-Nl) 
GO TO 15 



TO 20 
*(KP(I- 
*(KP(I- 
*(KP(I- 
*(KP(I- 
*(KP(I- 
*(KP(I- 
*(KP(I- 
*CKP(I- 
*(KP(I- 
*(KP(I- 



1. J-2) 

2. J-2) 

1. J-D 

2. J-1) 

1, 3) 

2, J) 

2.J+1) 

1. J+2) 

2, J+2) 



-N1)*CKP(I, J-2)-Nl)* 
-Nl)* 

-Nl)*(KP(I,J-l)-Nl)* 
-Nl)* 

-Nl)*(KPCl, J)-Nl)* 
-Nl)* 

-N1)*(KP(I, J+D-Nl)* 
-Nl)* 

-Nl)*(KP(I,J+2)-Nl)* 
-Nl) 
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/*======= 

Name 

Function 
Author 



f crsubUtil . c 

Utility for Reading FCR Standard Header 
SHIGE 11/04/98 



# include 
# include 
#include 
#include 
#include 
#include 



<stdio . h> 

<string.h> 

<stdlib.h> 

<ctype.h> 
<math.h> 

"TempSub.H" 



FcrStand getFcrStandlnf o (FILE *fp, char *FCRHeader) 

*fp File Pointer [I] 

*FCRHeader FCR Standard Header [O] 

Return Value FcrStand Structure [O] 

You must allocate FCRHeader before calling this routine. 

Only alphanumeric value is available in fcr.PatName. 

= = = = = = = = = = = s = = = = = = == ^ = == = = = = = = = = = = = = = = = = = = =: = = = = = = : = = = = = = == = = = = ^ = = = = = = = = */ 

FcrStand getFcrStandlnf o (FILE *fp, char *FCRHeader) 
{ 

FcrStand fcr; 
return fcr; 

} 



#include <stdio ,h> 

ttinclude <stdlib . h> 

#include <string . h> 

#include <ctype.h> 

#define LENGTH 3 0 

#ifdef KRLJ3NU 

#define f namel _printq f namel_jprintq 

#define f name2_printq f name2 _j?rintq 

# define fname_LUT fname_LUT 

#else 

#define f namel_printq f namel__printq_ 
ftdefine f name2_printq f name2_printq_ 
# define fname_LUT fname_LUT_ 
#endif 

extern "C" void f namel jrintq (char *filel, char *file2, char *fname, int 
*p_tps, int *p_sas, int *p_inc, 

int L_filel, int L_file2, int L_fname, int L_tps, int L_sas, 

int L_inc) 

{ 

int length, i; 

char f namel [LENGTH] , f name2 [LENGTH] ; 

int tps, sas, inc; 

for(i =0; i < LENGTH; i++) { 

f namel [i] = 0; fname2 [i] « 0; 

} 

length = LENGTH; 

for( i = 0; i < LENGTH; i + + ) { 

if (isalnum(filel [i] ) 0) { 
length = i; 
break; 

} 

} 

strncpy(f namel, filel, length) ; 

length = LENGTH; 

for( i = 0; i < LENGTH; i++) { 

if (isalnum(file2 [i] ) == 0) { 

length = i; 

break; 

} 

} 

strncpy (f name2 , file2, length) ; 

tps = *p__tps, sas = *p_sas, inc = *p_inc; 



} 



sprintf (fname, "%s-%s_T%iS%iI%i_Q.DAT" , 
fname2, f namel, tps, sas, inc ); 



extern "C" void f name2_printq (char f ilel [] , char f ile2 [] , char fname [], 
int *p_tps, int *p_sas, int *p_inc, int *p_order, 

int L_filel, int L_file2, int L_fname, int L_tps, int L_sas, 
int L__inc, int L_order) 
{ 

char f namel [LENGTH] , fname2 [LENGTH] ; 
int tps, sas, inc, order, i, length; 



initialization */ 

for(i - 0; i < LENGTH ; i++) { 

fnamel [i] = 0; fname2 [i] = 0; 

} 

find the space character */ 
length = LENGTH; 

for( i = 0; i < LENGTH; i++) { 

if (isalnum(filel [i] ) == 0) { 
length = i; 
break; 

} } 

copy filel to fnamel till the space character */ 
strncpy (fnamel, filel, length) ; 

length = LENGTH ; 

fort i = 0; i < LENGTH; i++) { 

if (isalnum(f ile2 [i] ) == 0) { 

length = i; 

break; 

} 

} 

strncpy (fname2, file2 # length) ; 

tps = *p_tps, sas = *p_sas, inc = *p_inc, order = *p_order; 

sprintf (fname, "%s-%s_T%iS%iI%i_F%i_Q.DAT" , 

fname2, fnamel, tps, sas, inc, order ); 



extern "C" void f name_LUT ( char *head, char *dirlut, int L_head, int 

L dirlut) 

{ 

char head_of_dir [60] ; 
int i, length; 

for( i = 0; i < 60; i++) head_of_dir [i] = 0; 

for( i = 0; i < LENGTH; i++) { 

if (isalnum(head[i] ) == 0) { 
length = i; 
break; 



strncpy (head_of_dir, head, length) ; 
sprintf (head, "%sdupect" , head_of_dir) ; 

} 



GET_DENSITY_CORRECTION_FACTOR . f 



subroutine get_density_correction_factor( orilmage, ncol, rilin, 

1 grayscale, dens, type, dirlut, leng, DCTable, TableNo ) 



Ver. 2.1 

written by Xin-Wei xu, 
Modified by Akiko Kano, Mar. 29 
Modified by shige, 
Modified by shige, 



'DENSITYCORRECTION 

:. 1993 
Apr. 28, 1999 

:un.l5, 1999 Add l.Ox LUT 



This subroutine determines the exposure level factor and locates the 
Look-Up-Table for a nonlinear density correction. 

(1) LUTs are suitable for grayscale ranging from 0 to 1023, in which "0" 
corresponds to high optical density and "1023" corresponds to low 
optical density. , . . 

(2) If "grayscale" is 1, which means that "0" corresponds to low optical 
density, this subroutine returns image data with the inverted gray 
scale for later use. 



implicit integer*2 (i-n) 

integer*4 ncol, nlin 

integer*2 ori lmage(ncol , nl i n) 

integerM grayscale 

integer*2 dens 

integer*2 type 

character dirlut*(*) 

integerM leng 

integer*2 DCTable(2 , 1024) 

integer*2 TableNo 



! Matrix Size of image Data [I, 
! input and output image Data 
I l:0->Lighter , -l:0->Darker 
j Scanner Density Range 
! 3:(0-3)4:(Q-4) 
! Screen/Fi lm Type 

! l:Med/OC, 2 : Med/TMG, 3:insightHC 
! Subdirectory Where LUTs are stored[l 
I Length of dirlut • T 

I LUT for Density correction 
! DCTable(l,*) rlnput Pixel vaiue 
! DCTable(2,*):Output Pixel value 
! LUT No. for Density correction [OJ 
! 1:0. 25x 2:0. 30x 3:0. 35x 4:0. 42x 
! 5:0. 50x 6:0. 60x 7:0. 71x 8:0. 84x 
! 9:1. OOx 

110:1. 19x 11:1. 41x 12:1. 68x 13:2. OOx 
1 14:2 . 37x IS : 2 . 82x 16 : 3 . 35x 17 : 3 . 98x 



[I] 

II] 



integer*2 LUT(1024 , 17) , 
ECT_NORC17) , 



ECT_UND(8) , 
ECT_OVE(8) 
P25, 



ECT_OVEl(8) , ECT_OVE2 (8) , ECT_OVE3(8) , 
! pixel value at 25% from minimum of histogram 
I at center quarter ROI of chest image 
! minimum pixel value of the Histogram 
l=0:Normal expo; -l:over expo; =2:under expo; 



Pmin, 

expolndex, 
Di, Dil, 

nxw, nyh , 
integer Hi st(0: 1023) , ! histogram of center Quarter ROI of chest image 

total ! total pixel number of the histogram 

real fraction(0:1023) ! histogram fraction 

character*80 dcTableName I density correction look up table name 
characters expolevel (17) 
integer*2 ngray 

**********************1 

data expolevel/'O^Sx' ,'0.30x' , '0.35x' ,'0.42x' 
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c *******t 



GET_DENSITY_CORRECTION_FACTOR. f 
4 '0.50x' , '0.60x* , '0.71x' , , 0.84x" , 

& 'l.OOx', 

& '1.19x' ,'1.41x' , '1.68x' ,'2. 00x' , 

* '237x' 1 2 82 x ' '335X 1 * 3 98x / 



c part 0: initialize 



nxw 
nyh 



ncol 
nlin 



if ( grayscale. eq.l ) then 
do iy * 1, nyh 

do ix - 1, nxw 

oriimage(ix, iy) 
end do 
end do 
end if 



= 1023 - oriimage(ix.iy) 



c part 1: make a look up table matrix "LUT" for later to determine 
c a proper look up table to correct exposure level of images 

*************** 



call MakeLUTCdens, type, LUT, dirlut, leng) 
c ** end of part 1 ** 
c ******* ********************************************** *********** 

c part 2: obtain histogram of the image in center quarter ROI 
c**********************************************************' 

do i -0,1023 

Hist(i)-0 

fraction(i)»0.0 
end do 

nxq-int(float(nxw)/4.0) 
nyq=i nt(f loat(nyh)/4 .0) 

do iy*nyq, 3*nyq 

do ix=nxq, 3*nxq . _ 

HistCori image(ix,iy))=Hist(ori image(ix,iy))+l 

end do 
end do 

c ** end of part 2 ** 



part 3: analyze the histogram to obtain P25 and Pmin 
:**************************************************************************** 
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do i-0, 1023 

if (Hist(i) .gt.O) then 
inimi n=i 
go to 5 
end if 
end do 
continue 

do i=1023, 0, -1 

if (Hist(i).gt.O) then 
inimax»i 
go to 10 
end if 
end do 
continue 

total =-0 

do i=inimin, inimax 

total=total+Hist(i) 
end do 

ftotal-float(total) 

do i-inimin. inimax 

fraction(i)=100.0*Cfloat(Hist(i)))/ftotal 
end do 

do i-0, inimin-1 

fraction(i)-0.0 
end do 

do i-inimax+1, 1023 

fraction(i)-0.0 
end do 

percent25=0.0 

do i-inimin, inimax 

percent25«percent25+fraction(i) 

if (percent25.ge.25.0) then 

go to 15 
ena if 
end do 

continue I determine P2S 

do i=P25, inimin, -1 

if (fraction(i).le.O.Ol) then 
Pmi n=i 
go to 20 
en3 if 
end do 

continue ! determine Pmin 



. P2 5 , 



Pmin-' ,Pmin 



type*,' P25- 
i of part 3 ** 

: 4 determine exposure contion of chest images by its Pmin 
>*********************************************************************** 

if (dens.eq.3) then 
if (Pmin. It. 180) then 
expolndex-1 
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else if (Pmin. gt. 500) then 

expoIndex»2 
else 
expolndex-0 
end if 
end if 

if (den5.eq.4) then 
if (Pmin. It. 396) then 
expolndex-1 
else if (Pmin. gt. 633) then 

expolndex=2 
else 
expolndex=0 
end if 
end if 

c if (expolndex. eq.0) then 

c type*, 'The image is within normal exposure range 

c else if (expolndex. eq.l) then 

c type*,'The image is over exposed' 

c else 

c type*, 'The image is under exposed' 

c end if 

c ** end of part 4 ** 

c **************************************************************************** 

c part 5: set density correction level 
c 

c *************- 

if (dens.eq.3) then 

level_nor-350 

level_und-350 

1 eve l_ove 1-400 

Ievel_ove2-3SO 

level_ove 3=300 
end if 

if (dens.eq.4) then 

1 evel_nor=S22 

level_und=522 

level_ovel-558 

level_ove2-522 

level_ove3»48S 
end if 

do j=l, 8 

ECT_UND(j)=0 

ECT_OVEl(j)-0 

ECT_OVE2(l)-0 

ECT_OVE3(])-0 
end do 
do 17 

ECT_NOR(j)-0 
end do 

do j-l, 8 
do i-1,1024 

if ((LUT(i,j).le.l evel_und) . and . (LUT(i+l,j) .gt.l evel_und)) 
& then 
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ECT_UND(j)=i 
end if 
end do 
end do 

do j-10, 17 
jS-j-9 

do i -1,1024 

if ((LUT(i ,j).le.level_ovel).and.(LUT(i+l, j) ,gt.level_ovel)) 
then 

ECT_OVEl(j8)-i 
end if 
end do 

do i -1,1024 

if ((LUT(i , j) . le . level _ove2) . and . (LUT(i+l,j) . gt . level_ove2)) 
then 

ECT_OVE2(j8)-i 

end if 
end do 

do i-1,1024 

if ((LUT(i , j) .le.level_ove3) .and. (LuT(i+l, j) .gt. level_ove3)) 
then 

ECT_OVE3(j8)=i 
end if 
end do 

end do 

do J-1,17 
do 1-1, 1024 

if ((LuT(i ,j) .le.1evel_nor).and. (LuT(i+l,j) .gt. level_nor)) 
then 

ECT_NOR(j)»i 
end if 
end do 
end do 



type*, ' ECT_UND(crosspoints) ' 
do k=1.8 

type*, '*' ,k,ECT_UND(k) 
end do 

type*, 'ECT_ovEl(high level (1) crosspoi nts) ' 
do k-1,8 

type*, '*' ,k,ECT_0VEl(k) 
end do 

type*, ' ECT_0VE2(mid level (2) crosspoi nts) ' 
do k-1,8 

type* , ' * *, k , ECT_0VE2 (k) 
end do 

type*, 'ECT_OVE3(low level(3) crosspoi nts) ' 
do k-1,8 

type*,'*',k,ECT_0VE3(k) 
end do 

type* , ' ECT_NOR (crosspoi nts)' 
do k-1, 16 

type*, '*' ,k,ECT_NOR(k) 
end do 
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c ** end of part 5 ** 



part 6: determine the proper look up table for density correction 
(TableNo) 



c ********************* 
TableNo - 0 



****************************************** ******** 



if (expolndex.eq.O) then 
do 1-1, 17 

if ((Pmin.le.£Cr_NOR(i)).and,(Pmin.ge.ECT_NOR(i+l))) then 
01 -ECT_NOR(l)-Pmin 
Di 1-Pmi n-ECT_NOR(i +1) 
if (Di .eq.Dil) go to 100 

if (Di .eq.Dil. and. i .eq. 8) go to 100 I no density correction 
if (Di.lt.Dil) then 
if (Di.1e.Dil) then 
Tab! eNo=n 
else 

TableNo=i+l 
end if 
go to 30 
end if 
end do 

else if (expolndex .eq . 1) then 
" (dei 
f (I 
do 



if (dens. eg. 3) then 

if (P2S . It . (Pmi n+200)) then 



ECT_OVE (i ) -ECT_OVEl(i ) 
end do 

else if (P25.gt.(Pmin+3SO)) then 
do i-1, 8 

ECT_OVE (i ) =ect_ove3 (i ) 
end do 
else 
do i-1, 8 

ECT_OVE (i ) =ECT„OVE2 (i ) 
end do 
end if 
end if 



g.4) then 

. (Pmin+412)) then 



if (dens.e 
if (P25. I 
do i-1, a 

ECT_OVE ( i ) - ECT_OVE 1 ( i ) 
end do 

else if (P25.gt.(Pmin+522)) then 
do i-i, 8 

ECT.OVE (i ) -ECT_OVE 3 (i ) 
end do 
else 
do 1-1, 8 

ECT_OVE (1 )-ECT_OVE2 (i ) 
end do 
end if 
end if 

if (Pmin.le.ECT_0VE(8)) then 
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TableNo-17 
else if (Pmin.ge.ECT_OVE(l)) then 

TableNo-10 
else 

do i-1, 8 

if C(pmin.le.ECT_0VE(i)).and.(Pmin.ge.ECT„0VE(i+l))) then 
Di=ECT_OVE(i)-Pmin 
Di l=Pmi n- ECT_OVE (i +1) 
if (Di.ge.Dil) then 
TableNo-i+1+9 
else 
TableNo-i +9 
end if 
go to 30 
end if 
end do 
end if 

else 

if (pmin.ge.ECT_UND(l)) then 

TableNo-1 
else if (Pmin.le.ECT_UND(8)) then 

TableNo=8 
else 

do 1-1, 8 

if ((Pmin.le.ECT_UND(i)) . and . (Pmi n.ge . ECT_UND(i+l))) then 
Di -£CT_UND(i)-Pmin 
Di 1-Pm1 n-ECT_UND(i+l) 
if (Dl.1e.Dll) then 
TableNo-i 
else 

TableNo-i+1 
end if 
go to 30 
en3 if 
end do 
end if 

end if 

continue 



write(* 
write(* 



Exposure level 
Table no. 



expolevel(TableNo) 
TableNo 



' end of part 6 ** 



c part 7: load determined look up table 



****************** 



cal 1 Tabl eName (Tabl eNo , dens , type , di rl ut , 1 eng , dcTabl eName) 
ngray « 1024 

call loadTabl e (dcTabl eName , dcTabl e , ngray) 
continue 
' end of part 7 ** 
END 
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GET_DENSITY_CORRECTION_ FACTOR . f 



c obtain look up table name 
c 

c Name :Tabl eName (No, dens , type ,di rlut, leng.fi lename) 

c 

c ************************ *********************** 

subroutine Tabl eName (No, dens , type , di rlut , leng , fi lename) 

implicit integer*2 (i-n) 

integer*2 No, !look up table number 

& dens, Iscanner density range: 3(0-3) ;4(0-4) ;14(l-4) ; 

& type !screen-film system type: l(Med/oc) ; 2 (Med/TMG) ; 

! 3(insight HC) ; etc. 



character dirlut*(*) 

integer*4 leng 

integer*4 nchar 

character*128 filename 

character*40 head 

character*10 tail 

character*10 densi ty , 
& tabl eNo, 

& number(17) 

character*6 tail 

character*2 density, 
& tableNo, 
& number(17) 



data number/' U8' , 'U7' , 'U6' , 'U5' , 'U4' , 'U3' , 'U2 ' , 'ul' , 
& 'NO', 

& '01' , '02' ,'03' , '04' ,'05* , '06' , '07' , '08'/ 



head - 'DUPECT' 

if (dens.eq.3) then 

density- 03 
end if 

if (dens.eq.4) then 

densi ty=''04" 
end if 

tableNo-number(No) 

if (type.eq.l) then 

tail-'Cl.DAT" 
end if 

if (type.eq.2) then 

tai 1 = ' Al . DAT ' 
end if 

call nullplus(head, nchar) 
call nullplusfdensity, nchar) 
call nullplusCtableNo, nchar) 
call null pi us (tail, nchar) 
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GET_D E N S I TY_CO R R E CTI 0N_ FACTO R . f 

call lut_filename(dirlut, head, density, tableNo, tail, filename) 
call nullminus(filename, nchar) 
write(*,*) ' LIT Filename « nchar, 



Make a look up table matrix "LUT" 

Name: MakeLUT(dens , type , LUT, di rlut, leng) 



subroutine MakeLUT (dens , type , LUT, di rlut, leng) 
implicit integer*2 (i -n) 



integer*2 
& dens, 
& type, 



(scanner density range : 3(0-3) ;4(0-4) ; 14(1-4) ; 
!screen-film system type: l(Med/OC) ; 2 (Med/TMG) ; 
! 3(insight HC) ; etc. 
LUT(1024,17) llook up table matrix 



integer*2 dcTable(2 , 1024) 

character dirlut*(*) 

integer*4 leng 

integer*2 ngray 

character*128 dcTableName 



ngray * 1024 
do No=l, 17 

call TableName (No, dens, type, di rlut, leng, dcTableName) 
call 1 oadTab 1 e (dcTab 1 eName , dcTab 1 e , ngray) 
do j-1, 1024 

LUT(j,No)=dcTable(2,j) 
end do 
end do 



c ************ **************************** ********************************* 
c 

c Open a "dc" look up table and put it to a buffer "dcTable" 
c 

c Name: loadTable(dcTabl eName, dcTable.N) 
c 

c **************************************** *********************** ********** 

subrouti ne 1 oadTabl e(dcTabl eName , dcTabl e , N) 

IMPLICIT INTEGER*2 (I-N) 

integer*2 dcTable(2,N) 

character*128 dcTableName 
integer*2 buf(1024) 



integer* 4 
★★★♦a************- 



G ET_0 E N S I TY_CO R R ECTI ON_ FACTO R . f 

nchar 



old') 



open (unit»4, file=dcTableName, status- 
write (*,*) dcTableName 

° 3 read (4,100) dcTable(l, j) ,dcTable(2 , j) 
end do 
close (unit-4) 
format(2il0) 

call nullplus(dcTableName, nchar) 
call read_table (dcTableName, buf, n) 
do i - 1, N 

dcTable(l.i) * i - 1 

dcTable(2,i) - buf(i) 
end do 

call nullminus(dcTableName, nchar) 
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INITIALIZATION. f 



subroutine lnitialization( DCl, DC2, blank, ncol, nlin ) 



i ver. 1.0 

! written by Akiko Kano, Mar 


24, 1993 




! This subroutine initializes 


some parameters. 




! ARGUMENTS 


implicit none 
c integerM initialization 
integerM ncol , nlin 
integerM DCl, DC2 
1 

integer*2 blank(ncol, nlin) 


! Matrix Size of image Data 
! 1 -> Dens. Corr. is Done 
! 0 -> Dens. Corr. is Not Done 
! 1 -> Pixel with No image Data 
! 0 -> Pixel with image Data 


[1,0] 


! VARIABLES 


integerM C, L 


! BEGIN 


DCl = 0 
DC2 = 0 






do L = 1, nlin 

do C = 1, ncol 

blank(c,L) = 0 
end do 

end do 






! END 



return 
end 
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init_match.f 



Initial image matching 



subroutine ... 
i ni t_match ( i wo r k_l_ori g , i work_2_ori g , mszx_ori g . mszy_on g , rn bcagel_on g , 
& lribcagel_orig, rribcage2_orig, 1 ribcage2„orig, 

& HbfeatureLong, ribfeature2_orig, 

& rribcage_noLong , 1 ri bcage_noLong , rri bcage_no2_orig , 

& 1 ri bcage_no2_ori g , 

& ixshift.i; ' ' ' 

& out_imgl,< 
& out_img2c) 



, i yshi ft , cmax , mszxl46 , mszyl46 , i mgll46 , i mg2146 , 
il , out_i mg2 , out_i mglwk , out_i mg2wk , ou t_i mgic , 



Modified by Qiang Li, enable it to process images with any matrix size 
Oct. 30, 1998 



[I] 
[I] 
[I] 
[I] 

[I] 



Function of this subroutine is to match images globally by using a 
cross-correlation technuque. 



Si 

C3) 
(4) 



Lateral inclination should be corrected in advance. 
First, the original images (a current and a previous image) are 
reduced to 146 x 146 (1/4 of FCR image) by using averaging 
(Original FCR image matrix size is 1760 x 1760.) 



Then, these low- resolution images are blurred with a Gaussian 
filter (9x9 mask size). 

A lung segmentation by use of the detected ribcage edges is 
employed for elimination of unwanted area, that is, outside 
of ribcage edges and below diaphragms. 

We employed cross-correlation method for matching of the blurred 
low-resolution images obtained in this subroutine. 
Cross-correlation values are obtained to determine the horizontal 



(5) 
(6) 

(7) Thusi~the~shift-values are obtained for the global matching. 



and vertical shift-values between the two image; 

ie glot 



implicit integer*4 (i-n) 

parameter (mszx-586) 
parameter (mszy=586) 
parameter (mszxtmp-100) 
parameter (mszytmp-60) 



! Marix size of the current image, (column) 

! Marix size of the current image. (line) 

I Width of the template image 

I Hight of the template image 



i ntege r*2 i work_Lori g (mszx_ori g , mszy_ori g) 
integer*2 iwork_2_orig(mszx_orig,mszy_orig) 



i ntege r*2 
i ntege r*2 
integer*4 

integer*2 

integer*2 

i nteger*2 

i nteger*2 

i nteger*2 
i nteger*2 
integer*2 



iworklfmszx.mszy} ! 
iwork2(mszx,mszy) ! 
mszx.mszy \ 

rribcagel_orig(2,1215) 

lribcageL.orig(2,1215) 

rribcage2_orig(2 ,1215) 

lribcage2_orig(2,1215) 

ri bfeatureL_orig(50) ! 
ri bfeature2_orig(S0) I 
rribcage_nol_ong I 



til 



Original current image size 
Original previous image size 
matrix size of original image 
(Default size - 586 x 586) 

! Right Ribcage Points for imagel 

! Left Ribcage Points for Imagel 

I Right Ribcage points for Image2 

! Left Ribcage Points for Image2 

Ribcage-Related Features for Imagel [Il 
Ribcage-Related Features for Image2 [ij 
No. of Right Ribcage Points for Imagel 
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[I] 
Ci] 
to] 



i ntege r*2 
integer*2 
integer*2 



integer*2 
integer*2 
integer*2 
integer*2 
integer*2 
i nteger*2 
integer*2 
integer*2 
integer*2 
integer*2 



init_match.f 

lribcage_nol„orig ! No. of Left Ribcage Points for Imagel 

rribcage_no2_orig ! No. of Right Ribcage Points for Image2 

lribcage_no2_orig ! No. of Left Ribcage Points for lmage2 



rri bcagel(2, 1215) 
lribcagel(2,1215) 
rribcage2(2,121S) 
lribcage2(2,1215) 
ribfeaturel(50) 
ribfeature2(50) 
rribcage_nol I No. 
lribcage_nol ! No. 
rribcage_no2 ! No. 
lribcage_no2 I no. 



! Right Ribcage Points for imagel 
! Left Ribcage Points for Imagel 



! Right Ribcage Points for Image2 
I Left Ribcage Points for Image2 
! Ribcage-Related Features for Imagel 



i Ribcage-Related Features for Image2 
of Right Ribcage Points for Imagel 
of Left Ribcage Points for imagel 
of Right Ribcage Points for Image2 
of Left Ribcage Points for Image2 



ixshift.iyshift are the most important outputs. 

integerM ixshift.iyshift ! Global shift values for x and y 



[o] 



cmax is not used in the main routine. This could be eliminated. 
real*4 cmax ! Cross-correlation value at the best 

integerM mszxl46.mszyl46 
i nteger*2 i mgll46(mszxl46 , mszyl46) 
integer*2 img2146(mszxl46,mszyl46) 



! fit point. 

! matrix size of reduced image 
! (default size - 146 x 146) 

I Averaged low- resolution current 



[S3 



} imageT ' . . [0] 

! Averaged low- resolution previous 
t image. [O] 
integer*2 out_imglfmszxl46,mszyl46) I Gaussian filtered current image [O] 
integer*2 out_img2(mszxl46,mszyl46) (Gaussian filtered previous image 



i nteger*2 out_i mglwk (mszxl46 , mszyl46) 

integer*2 out_img2wk(mszxl46,mszyl46) 

i nteger*2 out_i mglc (mszxl46 , mszyl46) 

integer*2 out_img2c(mszxl46,mszyl46) 

integer*2 temp(mszxtmp,mszytmp) 
cross-correlation 



real*4 gauss(9,9) 



! Copy of Gaussian filtered current 

! image, (work image) fO] 

I Copy of Gaussian filtered previous 

I image. (Work image) [Ol 

! Lung segmentated current image[o] 

! Lung segmentated previous image[o] 

! Template image for 

! (Upper 100 x 60 matrix area of 

! the previous image). 

! Gaussian filter (9 x 9 matrix 



size) 

i "corr_mat" is a cross-correlation values for each point to check the 

program. 

! Not important. 



realM corr_niat(30, 30) 
real*4 corr_mat(50, 50) 

integerM isa(4) 



upper-left 
lower-right 



I Cross-correlation values 
! cross-correlation values 

! Location for search area of 
I cross-correlation. 
! isa(l) ,isa(2) : x, y location for 

! isa(3),isa(4): x, y location for 

**************! 
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**************** 



image 
image 



enlarge/reduce the size of image to 586*586 

because the 0RIGIANL subroutine is designed to process this 

Modified by Qiang Li 



image size 



call lmage_scaling(iwork_Lorig, mszx_orig, mszy_orig, iworkl, mszx, mszy) 
call lmage_scaling(iwork_2_orig, mszx_orig, mszy^orig, iwork2, mszx, mszy) 

rribcage_nol » rribcage_noLorig 
lribcage_nol » 1 ribcage_noLorig 
do i -1 , rri bcage_nol 
rribcagelQ.i) >= 
rribcagel(2 ,i) - 
end do 

do i«l,lribcage_nol 
lribcagel(I,i) 
1(2, i) 



i cty=0 
do j=l,mszy, istep 

icty=icty+l 

ictx-0 

do i-l,mszx,istep 

ictx«ictx+l 
i total 1=0 
i total 2-0 



ini t_match.f 



rribcageLorig(l.i) 
rribcageI_orig(2,i) 

lribcagel_orig(l,i) 
» lribcagel_orig(2,i) 



ri bf eatu rel_ori g(i ) 



Iribcagell 
end do 
do i=l,16 

ribfeaturel(i) 
end do 

call Curve_Scaling(rribcagel, rribcage_nol, float(mszx) / float(mszx_orig)) 
call Curve_Scaling(lribcagel, lribcage_nol, float (mszx) / float(mszx_orig)) 
call Rib_Feature_scaling(ribfeaturel, float(mszx) / float(mszx_orig) ) 

rribcage_no2 » rribcage_no2_orig 
lribcage_no2 «■ lribcage_no2_orig 
do rribcage_no2 

rribcage2(l,i) = rribcage2_orig(l,i) 

rribcage2(2,i) - rribcage2_orig(2 , i) 
end do 

do i«l, 1 ribcage_no2 

lribcage2(l,i) - lribcage2_orig(l,i ) 

lribcage2(2,i) * 1 ri bcage2_ori g (2 , i 5 
end do 
do 1-1,16 

ribfeature2(i) - ribfeature2_orig(i) 
end do 

call Curve_scaling(rribcage2, rribcage_no2 , float(mszx) / float(mszx_origl) 
call Curve_Scaling(lribcage2, 1 ri bcage_no2 , float(ms2x) / float(mszx_orig)) 
call Rib_Feature_Scaling(ribfeature2, float(mszx) / float(mszx_orig) ) 

0 set for Template image 

do j«l,mszytmp 

do i^l.mszxtmp 
temp(i , j)-0 

end do 
end do 

REDUCE IMAGE BY averaging mszx,mszy ---> mszxl46 , mszyl46 



istep-4 
avgresl=0 



avgres2=0 



! reducing factor (4 means 1/4) 

I work variable for averaging of current 

I work variable for averaging of previous 
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do m-i.j+istep-l 
do l=i,i+istep-l 

i total l=i total 1+i worklfl , m) 
i total 2=i total 2+iwork2(l ,m) 

end do 
end do 

avg resl- f 1 oat (i total l)/fl oat (i step* 
avgres2-float(itotal2)/float(istep* 



2) 



imgll46(ictx,icty)»avgresl ! low-resolution current image 
"'6(ictx,icty)-r ' 1 ^ 



img2146(ictx,icty)-avgres2 ! low- resolution previous image 



make a Gaussian filter (9 x 9) 



msksz-9 

mskst-msksz/2 

sigma-1.6 

do j«l,msksz 
do i»l,msksz 

icenx«mskst+l 
iceny«mskst+l 



! mask size of Gaussian filter 

! center of the filter 

! parameter (so) of Gaussian filter 



iceny«mskst+l 

Gauss(i ,i)=l/(2*3.141592*sigma**2) 
exp((-((icenx-i)**2+(iceny-j)**2))/(2*sigm 
end do 



igma**2)) 



end do 
do j=l,msksz 

write(*,9999) (Gauss(i , j) ,i=l,msksz) 
end do 

format (9f5.3) 



Make blurred low-resolution images 



0 set of the dimensions 



do j*l,mszyl46 
do i*l,mszxl46 



end do 
end do 



2. Gaussian filtering for current and previous image. 



do j=l+mskst,mszyl46-mskst 

do i=l+mskst,mszxl46-mskst 
wkl-0 
wk2-0 

do n=l,msksz 
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do m-l,msksz 



i ni t_match . f 



end do 
out_imgl(i ,3) 
out_img2(i ,]) 
out_i mglwk (i , 
out_img2wk(i , 
end do 
end do 



wkl- wkl+ imgll46(i+m-mskst,j+n-mskst)*Gauss(m,n) 
wk2- wk2+ img2146(i+m-mskst ( 3+n-mskst)*Gauss(m,n) 
end do 



■int(wkl) 
■int(wk2) 

B=int(wk2) 



Average along the ribcage edges (image #1: current image) 

and determine the Max. and Mm. values in the Mid. quadrant 
area of the current image. 

Average value along the ribcage edge is used to fill the 
outside of the ribcage edges. 

Max. and Min. values in the Mid. quadrant area for current image 

are used for normalization of the blurred low-resolution images. 

This part is related to the normalization of current image. 

avgl-0 

do i=l, rribcage_nol 

ixr«rribcagel(l,i)/istep 
i y r=r ri bcagel(2 ,i)/i step 
if(ixr.le.O) ixr-1 
if(iyr.le.O) iyr=*l 
avgl=avgl+out_imgl(ixr, iyr) 

end do 

do i»l,lribcage_nol 

ixl-lribcagel(l,i)/istep 
iyl=*lribcagel(2 ,i)/istep 
iffixl.eq.O) ixl=l 
if(iyl.eq.O) iyl*l 
avgl»avgl+out_imgl(ixl ,iyl) 

end do 

avgl-avgl/float(rribcage_nol+lribcage_nol) ! Average along the ribcage edge 

If the ribcage edges are mis-detected in the lung area, average 
pixel value along the ribcage edge could be very low value. 
To aboid this, minimum value of the avgl is setted to 500. 

This part is related to the normalization of image. 

if(avgl.lt. 500) avgl-500 

write(*,*) 'Avg. on ribcage edge for current image:' ,avgl 

maxl»-1000 
mini- 1000 



1 Maximum pixel value in mid. quadrant area 
I Minimum pixel value in mid. quadrant area 



do i-(mszyl46/istep)*l,(mszyl46/istep)*3 
do i=(mszxl46/istep)*l,(mszxl46/istep)*3 

if (out_imgl(i,i).gt.maxl) maxl*out_.imgl(i ,j) 
if Cout_imgl(i,j).Tt.minl) minl*out_imgl(i ,j) 

end do 
end do 

write(*,*) 'maxl.minl for current image' ,maxl, mini 



ifill-int(avgl) 



! "ifill" is the value for filling into 
! outside of ribcage border. 
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Normalization of the current blurred low-resolution image 
do j-l,mszyl46 

do i=l,mszxl46 ,„ 
out_imgl(i,j)« (1023/float((ifill-minl)))*out_imgl(i ,;)) 
-(1023*mi nl)/float((i fill-mini)) 
ir(out_imgl(i ,i) . lt.0) out_imgl(i ,i)*0 
if(out_imgl(i,i).gt.l023) out_imgl(i,j)-1023 , 
out_imglwk(i ,i)« (1023/f loat((i fi 11-mi nl)))*out_imglwk(i ,3) 
- (102 3*mi nl) /f 1 oat ( (i f i 1 1-mi nl)) 
if(out_imglwkfi,i).lt.O) out_imglwk(i , j)=0 
if(out_imglwk(i,j).gt.l023) out_imglwk(i , j)-1023 
end do 
end do 



ifi 11=102 3 



After the low-resolution image 
is normalized, "ifill" is 
setted to 1023. 



Fill rims of the current blurred low-resolution image caused by 
9x9 Gaussian filtering with "ifill". 

do'i-l^"" 
do i-l,mszxl46 

out_imgl(i ,i)-ifill 

out_imglwk(i,j)-ifill 

end do 
end do 

do j=mszyl46-3,mszyl46 
do i-l,mszxl46 

out_imgl(i ,j)=ifill 

out_imglwk(i , j)=i fill 

end do 
end do 

do j*l,mszyl46 
do 1=1,4 



>ut_imgl(i,i)-i fill 
>ut_imglwk(i,;j)»ifill 



end do 
end do 

do j=l,mszyl46 
do i-mszxl46-3,mszxl46 



end do 
end do 



out_imgl(i,j)-ifill 
out_imglwk(i,j)*ifill 



segmentation of the current image by using ribcage edges, 
outside of ribcage edges are filled with ifill". 

i bottomy-max (rri bcagel(2 , r ri bcage_nol)/i step , 
1 ribcagel(2, rribcage_nol)/istep) 

ixr-rribcagel(2 ,l)/istep 
if(ixr.eq.O) ixr-1 



do>l,ixr 
do i-l 



mszxl46 
out_imgl(i , j)-ifill 
end do 
end do 

do i=ibottomy,mszyl46 
do i=l,mszxl46 
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out_imgl(i , j)-ifi 11 
end do 
end do 

do i-1, rribcage_nol 

ixr-rribcagel(l,i)/istep 
if(ixr.eg.O) ixr-1 
do j-1, ixr 



ini t_match.f 



i ry-rri bcagel(2 , i )/i step 
if(iry.eq.O) iry-1 
out_imglb,iry)-ifill 



do i-l,lribcage_nol 

ilx-1 ribcagel(l,i)/istep 
if (ilx.eq.O) ilx-1 
do j»ilx.mszxl46 

1 ly-1 ri bcagel(2 , i )/i s tep 



ily=lribcagel(2,i)/ 
if(ily.eq.O) ily-1 
out_imgl(j,ily)-ifi 



end do 

do jt»l,mszyl46 

do i-l,mszxl46 

out_imglc(i , j)-out_imgl(i , j) 
end do 

end do 

Expand the ribcage edge for current image when the 
ribcage edge is mis-detected, i.e., if it's inside lung, 
scheme for the upper right and the bottom right. 



ithd-10 
ilength-20 



idist-10 
ithd2-0 



! threshold level for the edge. 

! if the number of points of continuous line 

! is longer than "ilength", the line is expanded to 

! the outside from the mis-detected ribcage edge. 

! Maximum expanding range; 10 pixels 

! threshold level tor stopping the edge search 



Bottom right (expansion to the right) 



ict-0 

do i=rribcage_nol,100, -1 
i xr-rri bcagelf 1 , i )/i step 
iyr-rribcagel(2 ,i)/istep 
if(ixr.eq.O) ixr-1 
iftiyr.eq.O) iyr-1 
iedge-ifill-out_imglwk(ixr,iyr) 
if (iedge.gt.ithd) then 

ict*ict+l 
else 

ist-i+1 

iend-i+ict 

if (ict.ge. ilength) then 
do k=ist,iend 

ixr2-rribcagel(l,k)/istep 
iyr2=rribcagel(2 ,k)/istep 
if(ixr2.eq.0) ixr2*l 
if(iyr2.eq.0) iyr2=l 
do l-0,idist 

if(ixr2-l-l.le.0) goto 500 
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ini t_match.f 
iel-out_i mglwk (ixr2-1 ,iyr2) 
ie2=out_i mglwk (ixr2-l-l,iyr2) 
ie=ie2-iel 

if (ie.lt.ithd2) goto 500 

out_imglc(ixr2-l , iyr2)-out_imglwk(i xr2-l , iyr2) 
end do 
continue 
end do 
end if 
ict-0 
end if 
end do 



Upper right 

ithd3-200 

ict-0 

do i-99,1,-1 



(expansion to the top) 

! threshold level to avoid the clavicles trapping 



ixr«rribcagel(l,i Vistep 
iyr-rribcagel(2 ,i)/istep 



if(ixr.eq.O) ixr-1 
if(iyr.eq.O) iyr-1 
i edge=i f i 1 l-out_i mglwk (i xr , i y r) 



if(iedge.gt.ithd) then 

ict=ict+l 
else 

ist-i+1 
iend=i+ict 

if (ict.ge. ilength) then 
do k-ist.iend 

ixr2=rribcagel(l,k)/istep 
iyr2-rribcagel(2 ,k)/istep 
if(ixr2.eq.O) ixr2-l 
if(iyr2.eg.0) iyr2=l 
do l=0,idist 

if(iyr2-l-l.le.O) goto 511 

i el-out_i mglwk(i x r2 , i yr2 -1 ) 

i e2=out_i mglwk (i xr2 ,iyr2 -1-1) 

ie3-ie2-iel 

if (ie3.gt.ithd2) then 

out_imglc(ixr2,iyr2-1)=out_imglwk(ixr2,iyr2-l) 
else 

ie4-ifill-out_imglwk(ixr2,iyr2-l) 
if (ie4.gt.ithd3.and.l.lt.2) then 

out_imglc(ixr2,iyr2-l)«out_i mglwk (i xr2 , iyr2-l) 
else 

goto 511 
end if 
end if 
end do 
conti nue 
end do 
end if 
ict-0 
end if 
end do 

Bottom left (expansion to the left) 
ict-0 

do i-lribcage_nol, 100,-1 
ixl-1 ribcagel(l,i)/istep 
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iyl-1 ribcagel(2,i)/i step 
if(ixl.eq.O) ixl-1 
if(iyl .eq.O) iyl-1 
iedge«ifill-out_imglwk(ixl ,iyl) 
if(iedge.gt.ithd) then 

ict-ict+1 
else 

ist-i+1 

iend»i+ict 

if (ict.ge.i length) then 
do k=>ist,iend 

ixl2=lribcagel(l.k)/istep 
iyl 2=1 ribcagel(2.k)/i step 
iffixl2.eq.O) ixl2-l 
if(iyl2.eq.O) iyl2-l 
do l=0.idist 

if(ixl2+l+l.ge.mszxl46) goto 502 

iel=out_imglwk(ixl2+l,iyT2) 

ie2=out_imglwk(ixl2+l+l,iyl2) 

ie-ie2-iel 

if (ie.lt.ithd2) goto 502 

out_imglc(ixl2+1 ,iyl2)-out_imglwk(ixl2+l,iyl2) 
end do 
conti nue 
end do 
end if 
ict=0 
end i f 
end do 



Upper left 



(expansion to the top) 



ict-0 

do 1=99,1,-1 

ixl-1 nbcagel(l,i)/i step 
iyl-1 ribcagel(2 i)/istep 
if(ixl.eq.O) ixl-1 
if(iyl.eg.O) iyl=l 
iedge-ifill-out_imglwk(ixl ,iyl) 
if(iedge.gt.ithd) then 

ict=ict+l 
else 

ist=i +1 

iend-i+ict 

if (ict.ge.ilength) then 
do k-ist.iend 

ixl2-lribcagel(l,kVistep 
iyl2-lribcagel(2,k)/istep 
if(ixl2.eq.0) ixl2=l 
if(iyl2.eq.0) iy!2»l 
do l-O.idist 



if(iy!2-l-l.le.O) goto 513 
iel-out„imglwk(ixl?,iyl2-l) 
ie2-out_imglwk(ixl2,iyl2-l-l) 
ie3-ie2-iel 

if (ie3.gt.ithd2) then 

out_imglc(ixl2,iyl2-l)-out_imglwk(ixl2,iyl2-l) 

6 S ie4=ifill-out_intglwkCixl2,iyl2-l) 
if (ie4.gt.ithd3.and.l.lt.25 then 

out_imglc(ixl2,iyl2-l)=out_imglwk(ixl2,iyl2-l) 
else 

goto 513 
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end if 
end if 
end do 
conti nue 
end do 
end if 
ict=0 
end if 
end do 
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Fill narrow space, if it exists. 

sometimes, the interval between x-locations of ribcage edges 
is not 1, it may be appeared a line after the expansion process. 
In order to avoid this, the line will be replaced with 
original blurred low- resolution image data. 



do 1-1, 
do 1-1, 



end do 
end do 



mszyl46 

mszxl46 .„ , . „. , „ 

if(out_imglc(i , j) .eq.ifi U.and.out_imglc(i-l,]) .It .ifill. 
and . ou t_i mglc (i +1 , i ) . 1 1 . i f i 1 1) then 
out_imglc(i , j)=out_imglwk(i , j) 

if(out_imglc(i-l,j) .eq.ifill. and. out_imglc(i+l,j) .eq.i fill. 
and.out_imQleCrjJ.lt ifill) then 
out_imglc(i ,;])-ifiU 

end if ■ 
i f (out_i mglc (i , j ) . eq . i f i 1 1 . and . out_imglc (i +1 , ]) . eq . l f 111. 
and. out_i mglc (i-1. j) . 1 1. i fi 11. and . 
out_imglc(i+2,j). It. ifill) then 

out_imglc(i , j)=out_imglwk(i , }) 
out_i mglc (i +1 , j )-ou t_i mglwk(i +1 , j ) 

end if 



Flip gray scale for cross-correlation 



do i«l,mszyl46 
do i*l,mszxl46 



end do 
end do 



ou t_1 mglc(i , j ) - 102 3-out_i mglc(i , j ) 



Average along the ribcage edge line (image #2: previous image) 
and determine the Max. and Mm. values in the Mid. quadrant 
area for previous image. 

Average value along the ribcage edge is used for filling into 
outside of ribcage edges. 

Max. and Min. values in the Mid. quadrant area for previous image 
are used for normalization of the blurred low-resolution images. 

This part is related to the normalization of image. 

avg2-0 

do i-1, rribcage_no2 

ixr=rribcage2(l,i)/istep 
iyr-rribcage2(2 ,i)/istep 
iffixr.eq.O) ixr=l 
if(iyr.eq.O) iyr-1 
avg2-avg2+out_i mg2 (i xr , i yr) 



end do 
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do i*l,l ribcage_no2 

ixl-1 ribcage2(l,i)/i step 
iyl=lribcage2(2,i)/istep 
if(ixl.eq.O) ilr-1 
f(iyl.eq.O) 



if(iyl.eq.O) iyl-1 
avg2«avg2+out_img2(ixl ,iyl) 



end do 

avg2-avg2/float(rribcage_no2+1 ribcage_no2) ! Average along the ribcage edge 

If the ribcage edges are mis-detected in the lung area, average 
pixel value along the ribcage edge could be very low value. 
To aboid this, minimum value of the avg2 is setted to 500. 

This part is related to the normalization of image. 

if (avg2.lt. 500) avg2=500 

write(*,*) 'Avg. on ribcage edge of previous image :',avg2 



max2- 
min2 = 



1000 
1000 



do i-(m5Zyl46/istep)*l, (mszyl46/istep)*3 
do i=(mszxl46/istep)*l, £mszxl46/istep)*3 



! Maximum pixel value in mid. quadrant area 
! Minimun pixel value in mid. quadrant area 



(mszxl46/istep)*l, (mszxl46/istep)' _ 

if (out_img2(i ,i) .gt.max2) max2-out_img2(i ,i) 
if (out_img2(i,j).Tt.min2) min2-out_img2(i ,]) 



end do 
end do 



write(*,*) 'max2,min2' ,max2,min2 



ifi!2-int(avg2) 



! "ifill" is the value for filling into 
! outside of ribcage border. 



Normalize for image #2: previous image) 



do j-l,mszyl46 
do i»l,mszxl46 



end do 
end do 



ut_img2(i ,i) = (1023/float((i fi 12-mi n2)))*out_img2(i , j) 
- f 102 3*mi n2) /f 1 oat ( (i f i 1 2 -mi n2 ) ) 
if (out_img2(i , i) .lt.0) out_img2(i , j)=0 
if (out_img2(i .i)-9.t.l023) out_img2(i ,i)-1023 
out_img2wk(i ,i)- (1023/f loat((ifil2-min2)))*out_img2wk(i ,]) 
-(1023*mi n2)/float((ifil2-min2)) 
if (out_img2wk(i ,j).lt.0) out_img2wk(i ,i)-0 
if(out_img2wk(i ,]).gt.l023) out_img2wk(i , j)-: 



1023 



! After the low-resolution 
! is normalized, "ifill" i 
I setted to 1023. 



Fill rims of the previous blurred low-resolution image caused by 
9x9 Gaussian filtering with "ifi!2". 



do 3-1,4 

do i=l,mszxl46 

out_img2(i ,i)-ifil2 
out_img2wk(i,j)«ifil 

end do 
end do 

do j=mszyl46-3,mszyl46 



do i-l,mszxl46 
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out_img2(i ,i)=ifi12 
out_img2wk(i,j)-ifil2 

end do 
end do 

do i-l,mszyl46 
do i=l,4 

out_img2(i , j)=ifil2 
out_img2wk(i ,j)-ifil2 

end do 
end do 

do i-l,mszyl46 

do i-mszxl46-3,mszxl46 

out_img2(i,i)-ifil2 
out_img2wk(i,j)=ifil2 

end do 
end do 



Segmentation of the previous image by using ribcage edges. 
Outside of ribcage edges are filled with "ifil2". 

ibottomy-max(rribcage2(2,rribcage_no2)/istep, 
1 ribcage2 (2 , rri bcage_no2)/i step) 



i ry-rri bcage2 (2 , l)/i step 
if (iry.eq.0) ir " 
do j=l t iry 
do i=l,mszxl46 



iry.eq.0) i ry-1 
'ry 

szxl46 

out_img2(i , j)=ifil2 



end do 
end do 

do i-ibottomy,mszyl46 
do i-l,mszxl46 

out_img2(i , j)-ifill 

end do 
end do 

do i-1, rribcage_no2 

i rx-rribcage2(l,i)/istep 
if(irx.eg.O) i rx-1 
do j-1, irx 



i ry-rri bcage2 (2 , i )/i step 
if (iry.eq.0) i ry-1 
out_img2 (] , i ry)-ifi 11 



do i-l,lribcage_no2 

ilx=lribcage2(l,i)/istep 
if (ilx.eq.O) ilx-1 
do j=ilx.mszxl46 

ily-lribcage2(2,i)/istep 



ily-lribcage2(2,i)/i 
if(ily.eq.O) ily=l 
out_img2(j ,i ly)=»ifil 
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end do 

do j-l,mszyl46 
do i=l,mszxl46 

out_img2c(i , j)=out_img2(i , j) 

end do 
end do 
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Expand the ribcage edge for previous image when the 
ribcage edge is mis-detected, i.e., if it's inside lung, 
scheme for the upper right and the bottom right. 



Bottom right, (expansion to the right) 
ict-0 

do i-rribcage_no2 ,100,-1 
ixr=rribcage2(l,i)/istep 
iyr-rribcage2(2 ,i)/istep 
if(ixr.eq.S) ixr-1 
iffiyr.eg.O) iyr-1 
i eoge«=i f i 1 2-out_i mg2wk(i xr , i yr) 
if (iedge.gt.ithd) then 

ict-ict+1 
else 

ist>i+l 

iend-i+ict 

if (ict.ge.ilength) then 
do k=ist,iend 

ixr2=rribcage2(l,k)/istep 
iyr2-rribcage2(2 , k)/istep 



ixr2=l 
iyr2*= 



iffixr2.eq.O) 
i f (iyr2 . eq .0; 
do l=0,idist 

if(ixr2-l-l.le.O) goto 600 
iel-out_img2wkfixr2-l ,iyr2) 
ie2-out_img2wk(ixr2-l-l,iyr2) 
ie3-ie2-iel 

if (ie3.1t.ithd2) goto 600 

out_img2c(ixr2-l ,iyr2)==out_img2wk(ixr2-l ,iyr2) 
end do 
continue 
end do 
end if 
ict-0 
end if 
end do 

Upper right (expansion to the top) 
ict=0 

do i-99,1,-1 

ixr»rnbcage2(l,i)/istep 
iyr=rribcage2(2 , i)/istep 
if(ixr.eq.O) ixr-1 
if(iyr.eg.O) iyr-1 
iedge-ifll2-out__i mg2wk(ixr,iyr) 
if(iedge.gt.ithd) then 

ict-ict+1 
else 

ist«i+l 

iend*i+ict 

if (ict.ge.ilength) then 
do k-ist,iend 

i xr2-rri bcage2 f 1 , kj /i step 
iyr2=rri be age 2 (2 , k;/i step 
if(ixr2.eq.O) ixr2-l 
if(iyr2 .eq.O) iyr2=l 
do l=0,idist 

if(iyr2-l-l.le.O) goto 611 
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iel-out_img2wk(i xr2 , iyr2-l ) 
i e2=out_img2wk(i xr2 , i yr2-l -1) 
ie3-ie2-iel 

if (ie3.gt.ithd2) then 

out_img2c(ixr2,iyr2-l)=out_img2wk(ixr2,iyr2-l) 
else 

i e4-i f i 1 2-out_i mg2wk (i xr2 , i yr2 -1 ) 
if (ie4.gt.ithd3.and.l .It. 2) then 

out_i mg2c(ixr2,iyr2-l)«out_i mg2wk(ixr2,iyr2-l) 
else 

goto 611 
end if 
end if 
end do 
conti nue 
end do 
end if 
ict-0 
end if 
end do 

Bottom left (expansion to the left) 
ict=*0 

do i»lribcage_no2, 100,-1 
ixl=lribcage2(l,il/istep 
iyl«lribcage2(2.i)/istep 
if(ixl.eq.O) ixUl 
if(iyl.eq.O) lyl-1 
iedge-ifil2-out_img2wk(ixl,iyl) 
if (iedge.gt.ithd) then 

i ct-i ct+1 
else 

ist=i+l 

iend-i+ict 

if (ict.ge.ilength) then 
if(ixl2.eq.0) ixl2=l 
1f(iyl2.eg.O) iyl2-l 
do k=ist,iend 

ixl2-lribcage2Cl,k)/istep 
iyl2=lribcage2(2,k)/istep 
do 1-O.idist 

if (ixl2+l+l.ge.mszxl46) goto 602 
i el=ou t_i mg2wk (i xl 2+1 , i y 12) 
ie2=out_img2wk(ixl2+l+l,iyl2) 
ie3=ie2-ie! 

if (ie3.1t.ithd2) goto 602 

out_img2c(ixl2-l,iyl2)=out_img2wk(ixl2-l,iyl2) 
end do 
conti nue 
end do 
end if 
ict-0 
I if 



end do 
Upper left 
ict=0 

do i-99,1,-1 

ixl-1ribcage2(l,i)/istep 
iyl»lribcage2(2,i)/istep 
if(ixl.eq.O) ix1-l 



(expansion to the top) 
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if(iyl.eq.O) iyl=l 
iedge=ifil2-out_img2wk(ixl,iyl) 
if(iedge.gt.ithd) then 

ict=ict+l 
else 

ist-i+1 

iend=i+ict 

if (ict.ge.ilength) then 
do k=ost,iena 

1x12 = 1 ribcage2(l,kl/istep 
iyl2=l ribcage2(2,k)/istep 
if(ixl2.eq.O) 1x12-1 
if(iyl2.eq.O) iy!2-l 
do l=0,idist 

if(iyl2-l-l.le.0) goto 613 

i el=out_i mg2wk (i xl 2 , i yl 2 -1 ) 

i e2-ou t_i mg2wk (i xl 2 , i yl 2- 1 -1) 

ie3-ie2-iel 

if (ie3.gt.ithd2) then 

out_img2c(ixl2,iyl2-l)=out_img2wk(ixl2,iyl2-l) 

ie4-i fil2-out_img2wk(ixl2,iyl2-l) 
if (ie4.gt.ithd3.and.l.lt.2) then 

out_img2c(ixl2,iyl2-l)-out_img2wk(ixl2,iyl2-l) 
else 

goto 613 
end if 
end if 
end do 
conti nue 
end do 
end if 
ict-0 
end if 
end do 

Fill narrow space, if it exists. 

Sometimes, the interval between X-locations of ribcage edges 
is not 1, it may be appeared a line after the expansion process. 
In order to avoid this, the line will be replaced with 
original blurred low- resolution image data. 

do j=l,mszyl46 
do i-l,mszxl46 

if (out_img2c(i , j) . eq. i fi 12 .and.out_img2c(i -1, j) . It. i fi 12 . 
and.out_img2c(i+l,j).lt.ifil2) then 

out_img2c(i , j)-out_img2wk(i , j) 

end if 

if (out_img2c(i -1, i) .eq. i fi 12 . and.out_img2c(i+l, j) .eq.ifil2. 
and.out_img2c(i .j) .lt.ifil2) then 
out_img2c(i , j)-ifi 12 

end if 

if (out_img2c(i , j) . eq . i fi 1 2 . and .out_img2c(i+l, j) .eq.ifi 12 . 
and . ou t_i mg2 c (i - 1 , j ) . 1 1 . i f i 1 2 . and . 
out_img2c(i+2, j) .1t.ifil2) then 

out_img2c(i ,i)=out_img2wk(i , j) 

out_img2c(i+l,j)-out_img2wk(i+l, j) 

end if 

end do 
end do 

Flip gray scales for cross-correlation 
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c — 

do j-l,mszyl46 

do i-l,mszxl46 

out_img2c(i , j)- 1023-out_img2c(i , j) 
end do 
end do 

c 

c Make template image from previous blurred low-resolution 

c image for cross-correlation. (Matrix size : 100 x 60) 

c 

ix2base-ribfeature2(6)/istep 

iy2base-mi n(rri bcage2 (2 , 1) , 1 ribcage2 (2 , l))/i step 
if (iy2base.eq.0) iy2base=l 
imargi nx=50 
imargi ny«0 

i f (i y2base-imargi ny . 1 e .0) imargi ny»0 
c wri te (* , *) i x2base , i y2base .imargi ny , mszytmp 

do j-l, mszytmp 
do 1=1, mszxtmp 

tetnp(i , j)= out_img2c(i+ix2base-imarginx, 
& j+iy2base-imargi ny) 

end do 
end do 

c 

c Cross-correlation 

isa(l)-l 
isa(2)«l 
isa(3)-mszxl46 
isa(4)-120 

c cal 1 cor r r (out_i mglc , temp , mszxtmp , mszytmp , mszxl46 , 

c & mszyl46 , i sa , JX, jy , cmax , cor r_mat) 

I 

I using fine scan correlation 
I modified by Qiang Li 

call cor rrl(out_i mglc, temp, mszxtmp, mszytmp, mszxl46, 
& mszyl46 , i sa, JX , J Y , cmax) 
c 

c cross-correlation values is saved as 'corr_map.dat' 

c - — 

c open(uni t=l, fi le- ' corr_map.dat' , form-' formatted' ) 

c do j-1,30 

c write(l,800) (corr_mat(i , j), 1-1,28) 

c end do 

c800 format (28f6.3) 

c close(l) 

c 

c write results 

c 

c writef**) 'Location at Max. correlation value: ' ,jx,jy 

c writer.*,*) '(0,0) - ' , (ix2base-imarginx) , 
c & (iy2base-imarginy) 

c writef*,*) '(0,0; means cross point of toplung and midline' 

c write(*,*} 'X-Y shift value (on 146x146 image)', 

c & Ox+imargi nx)-i x2base , OY+imargi ny) -iy2base 

c write(*,*) 'Max. of correlation value: ', cmax 

c call wnteimage(out_imglc, 'l.img' ,146,146) 

c call wri teimage(temp, ' z.img' ,100,60) 

c ixshift»(JX+imarginx)-ix2base ! X-shift value on low-resolution image 
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iyshift=OY+imarginy)-iy2base ! Y-shift value on low-resolution image 



! 

! modified by Qiang Li 



ixshift=(JX-l+imarginx)-ix2base ! x-shifr value on low-resolution image 
iyshift-OY-l+imarginy;-iy2base ! Y-shift value on low-resolution image 

ixshift-ixshift*istep I X-shift value on 512 image 

iyshift=iyshift*istep ! Y-shift value on 512 image 

ixshift - intfixshift* float(mszx_orig)/float(mszx)) 
iyshift = int(iyshift* float(mszx_orig)/float(mszx)) 
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subroutine inversed(a,b,np,n) 

matrix inversion by elimination with partial pivoting 
a ; original matrix 
b ; inverse matrix 

5/16/92 BY S.KATSURAGAWA 



implicit integerM (i-n) 

real*8 a(np,np) ,b(np,np) ,eps,del ,amax,atmp,btmp,div,amult 
eps=0.0000001d00 



CONSTRUCT IDENTITY MATRIX B(l,J)=I 



do 6 i=l,n 

do 5 j=l,n 

if(i-j)4,3,4 
b(i,j)=1.0 
goto 5 



conti nue 

continue 



>(i,j)=0.0 



LOCATE MAXIMUM MAGNITUDE A(I,K) ON OR BELOW MAIN DIAGONAL 

del=1.0 

do 45 k=l,n 

if(k-n)12,30,30 

imax=k 

amax=dabs(a(k,k)) 

kpl=k+l 

do 20 i=kpl,n 

if(amax-dabs(a(i ,k)))15,20,20 

imax=i 

amax=dabs(a(i , k)) 

continue 



INTERCHANGE ROWS IMAX AND K IF IMAX NOT EQUAL TO K 



if(imax-k)25, 30,25 

do 29 j=l,n 

atmp=a(imax,i) 
a(imax, j)=a(k, j) 
a(k, j)=atmp 
btmp=b(imax, i) 
b(imax,i)=b(k, j) 
b(k, j)=btmp 

continue 
del=-del 
continue 



TEST FOR SINGULAR MATRIX 



if(dabs(a(k,k))-eps)93,93,35 
del=a(k,k)*del 



DIVIDE PIVOT ROW BY ITS MAIN DIAGONAL ELEMENT 



di v=a(k, k) 

do 38 j=l f n 

a(k, i)=a(k,q)/div 
bCk,])=b(k,])/div 

continue 
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C 

C REPLACE EACH ROW BY LINEAR COMBINATION WITH PIVOT ROW 

C 

do 43 i=l,n 

amult=a(i ,k) 
if(i-k)39,43,39 
39 do 42 j=l,n 

a(i ,j)=a(i , i)-amul t*a(k, j) 
b(i l ])=b(i > 3)-amu1t*b(k l ]) 

42 continue 

43 continue 
45 continue 

c 

99 return 
c93 write(*,113)k 
93 continue 
goto 99 

113 formatClh singular matrix for k= ' , i 2 , 1 **** ) 

end 
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*********»DATA FITTING PROGRAM 

NAME: KOFITC.FOR (FITTED BY AN ORTHOGONAL polynomial) 
PROGRAMED BY KEN OHARA 10/31/85 
RANGE OF DEGREES IS 1 - 20 
CALL KOFITC(X,F,NN,MA,CF,MOPT) 
X (INPUT) : ARRAY VARIABLES, X(NN) , 
F (INPUT) : ARRAY VALUES OF F(X),F(NN) 
NN (INPUT) : NUMBER OF DATA <=1200 
MA (INPUT) : MAXIMUM ORDER OF THE POLYNOMIAL. 
CF (OUTPUT) : ARRAY COEFFICENT 

F(X)-CF(1)+CF(2)*X+CF(3)*X**2+CF(4)*X**3 
MOPT (i npUt/OUTPUT) : ORDER OF THE FITTED POLYNOMIAL 
NAUT : 0 JSPECIFED THE MOPT, 1 ; SETTING DEGREE BY AKAIKE'S CRITERION 
*************************************************************** 

SUBROUTINE KOFITC2 (X , F , NN , MA , CF , MOPT, NAUT , i err) 
IMPLICIT INTEGER* 2 (I-N) 

real*4 x(NN) , F(NN) ,W(1200) ,AL(21) ,AC(21) , 
real*4 P(1200) , Pl(1200) , P2 (1200) , BE(21) , B(21) , CF(21) 
REAL*8 Wl,W2,S,T,WX,WF 

DO 3-1,1200 

- > ])-0.0 



pim-0.0 
p2(])-0.0 



write(*,*)"kofitc2: MA, NN - ' , MA, NN 

IF(MA.GT.20) GOTO 999 

N-NN 

MMOPT-MOPT 
DO 10 3-1,21 

be(i)*0.0 
b(j)=0.0 
cf(j)«0.0 
AC(3)-0.0 

al(3)-0.0 
continue 

MI-0 
Z-0.0 
O-l. 0 
MN-MI+1 
MX=MA+1 

IF(MX.Le.N) GOTO 120 

write (6,*) ' ORDER AND NUMBER OF DATA ARE WRONG !' 
ierr-0 

RETURN 



Wl-X(l) 
W2-W1 
T=F(1) 
U-T 

IL-0 

write(*,*)'kofitc2: MA > 
DO 20 3-1, N 
IF(IL.EQ.O) W(3)-0 
IF(X(3) .LT.Wl) Wl=X(3) 
IFfxn) .GT.W2) W2-X(3) 
IF(F(J).LT.T) T-F(3) 



IF(FO).GT.U) U-F(J) 

CONTINUE 

IL-0 

XM-(W1+W2)*0.5 
RA=2.0/(W2-Wl) 
FM=(U+T)*0.5 

IF(U . EQ. T) THEN 
CF(1)-U 
DO 1-2,21 

CF(I)=0.0 
END DO 



RB-2.0/(U-T) 

S=Z 

WX-S 

Wl=»WX 

DO 290 3-1, N 
X(j)-(Xp)-XM)*RA 
F(3) = (FO)"FM)*RB 

wl-wl+wO) 

S-S+W(3)*F(3) 

WX=WX+W(3)*X(3) 

CONTINUE 

B(l)-S/Wl 

s-z 

DO 380 3-1, N 
P(3)-F(3)-B(l) 

S-S+P(3)*P(3)*W(3) 

Pl(3)-0 

P2(3)"Z 

CONTINUE 

if(s.le.O.O) then 
mo-0 

goto 780 
endif 

AC(l)-DLOG(S)*N 
MO-0 

IF(MA.LE.O) GOTO 780 
W2=0 

DO 480 1=1, MA 
IP-I+1 



kofitc2.f 



AL(I)-WX/W1 
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-W1/W2 

W2-W1 
Wl-Z 

wx-z 

WF=Z 

DO 540 3=1, N 

T-(X(3)-AL(l))*Pl(3)-BE(l)*P2(3) 

WF=WF+T*W(3)*F(3) 

P2(3)-P1(3) 
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480 

C 
C 

735 



730 
780 



Pl(3)-T 

T-T*T*W(3) 

Wl-Wl+T 

WX-WX+T*X(3) 

CONTINUE 

B(IP)-WF/W1 
S-Z 

DO 650 3-1, N 
P0)-P(3)-B(IP)*P10) 
S-S+P(3)*P(3)*W(3) 
CONTINUE 

if(s.le.O) then 
mo-i -1 
goto 735 
endif 

AC(IP)=DLOG(S)*N+I+I 
CONTINUE 



S-AC(MN) 
MO-MN-1 

DO 730 I-MN.MX 

IF(AC(I).GE.S) GOTO 730 

MO-I-1 

S-AC(I) 

CONTINUE 

IF(NAUT.EQ.l) THEN 
MP-MO 



MOPT-MO 

write(6,*) 

ELSE 
MP-MOPT 



OPTIMUM ORDER OR POLYNOMIAL ' ,MP 



ENDIF 

DO 790 3-1, N 
X(3)-X(3)/RA+XM 
F(3)=F(3)/RB+FM 
I CONTINUE 

*******CALCULATION OF COEFFICENTS**** ******* 

MOP-MP+1 
DO 890 K-l.MOP 
CF(K)-Z 
P(K)-Z 
P2(K)-Z 
I CONTINUE 

CF(1)-B(1)/RB+FM 
IF(MO.EQ.O) GOTO 1110 
P(1)=0 

DO 940 I-l.MO 
IP-I+1 



DO 980 
T-P(K) 



K-l.IP 



P(K)=U-AL(I)*T-BE(I)*P2(K) 
U-T 

P2(K)=T 

T-P(K)*8(IP)*Wl 
DO 1040 3-1, K 



Page 3 



980 
940 



CF(K-3+l)»CF(K-3+l)+T/RB 
T— T*(K-3)*XM/3 
CONTINUE 
Wl-W1*RA 
CONTINUE 
CONTINUE 
RETURN 

write (6,*) ' FITTING IS 
STOP 
END 



kofitc2.f 



WRONG, PLEASE TRY ANOTHER METHOD 1 
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KOFITC_PACK.f 
C ************* 0ATA FITTING PROGRAM *************** 
C NAME: KOFITC.FOR (FITTED BY AN ORTHOGONAL polynomial) 

C PROGRAMED BY KEN OHARA 10/31/85 

C RANGE OF DEGREES IS 1 - 20 

C CALL KOFITC(X,F,NN, MA, CF, MOPT, NAUT) 

C X (INPUT) : ARRAY VARIABLES, X(NN) , 

C F (INPUT) : ARRAY VALUES OF F(X),F(NN) 

C NN (INPUT) : NUMBER OF DATA <»1200 

C MA (INPUT) : MAXIMUM ORDER OF THE POLYNOMIAL. <«20 

C CF (OUTPUT) : ARRAY COEFFICENT 

C F(X)=CF(1)+CF(2)*X+CF(3)*X**2+CF(4)*X**3 ETC. 

C MOPT (1 nput/OUTPUT) : ORDER OF THE FITTED POLYNOMIAL 

C NAUT : 0 ISPECIFED THE MOPT, 1 ; SETTING DEGREE BY AKAIKE ' S CRITERION 
• • ************************************************************* 
SUBROUTINE KOFITC(X, F, NN , MA , CF , MOPT, NAUT) 
IMPLICIT INTEGER*2 (I-N) 
real*4 X(NN) , F(NN) ,W(1200) ,AL(21) ,AC(21) 
real*4 P(1200) , Pl(1200) , P2 (1200) , BE(21) , B(21) ,CF(21) 
R£AL*8 Wl,W2,S,T,WX,WF 



KOFITC_PACK.f 



r!w2) W2-XC. 

Z] I-f8S 



CONTINUE 
IL-0 

XM=(Wl+W2)*0.5 
RA-2.0/(W2-Wl) 
FM*(U+T)*0.5 

IF(U . EQ. T) THEN 
CF(1)=U 
DO 1-2,21 

CF(I)-0.0 
END DO 



w(i)«0.0 

pQ)-o.o 

pl(i)-0.0 

p2 g)=o.o 



write (*,*)' KOFITC_PACK: I 
IF(MA.GT.20) GOTO 999 
N«NN 

MMOPT-MOPT 

DO 10 3-1,21 

be(i)-0.0 

b(j)-0.0 

cf(j)-0.0 

AC(3)=0.0 

ALO)-0.0 

CONTINUE 

MI=0 

Z-0.0 

O=1.0 

MN*MI+1 

MX-MA+1 

write(6,*) 'MX.N-'.MX.N 

IF(MX.LCN) GOTO 120 
write(6,*) 'MX-', rax 

write (6,*) 'ORDER AND 
RETURN 



NUMBER OF DATA ARE WRONG ! 1 



Wl-X(l) 
W2-W1 
T-F(l) 
U-T 

IL«0 

write (6,*) ' KOFITC.PACK: 
DO 20 3-1, N 
IF(IL.EQ.O) W(3)=0 
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RB-2.0/(U-T) 
S-Z 



DO 290 3=1, N 

X(3)=(X(j)-XM)*RA 

F(3)-(F(3)-FM)*RB 

Wl-Wl+W(3) 
S=S+W(3)*F(3) 
WX-WX+W(3)*X(3) 
CONTINUE 

B(1)-S/W1 
S-Z 

DO 380 3-1, N 
P(3)=F(3)-B(1) 

S-S+P(3)*P(3)*W(3) 

Pl(3)=0 

P2(3)-Z 

CONTINUE 

if(s.le.O.O) then 
mo-0 

goto 780 
endif 

AC(l)-DLOG(S)*N 
MO-0 

IF(MA.LE.O) GOTO 780 
W2-0 

DO 480 1=1 , MA 

IP-I+1 

AL(I)-WX/W1 

BE(I)=Wl/W2 

W2-W1 

Wl-Z 

wx-z 

WF-Z 

DO 540 3-1, N 
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KOFITC.PACK. f 
T«(X(3)-AL(I))*P1(3)-BE(1)*P2(3) 
WF=WF+T*W(3)*F(3) 
P2(3)-Pl(3) 
P1(3)=T 
T-T*T*W(3) 
Wl-Wl+T 
WX-WX+T*X(3) 
540 CONTINUE 

C 

B(IP)»WF/Wl 
S-Z 

DO 650 3-l.N 
P(3)-P(3)-B(IP)*P1(3) 
S-S+P(3)*P(3)*W(3) 
650 CONTINUE 

if(s.le.O) then 
mo-i -1 
goto 735 
endif 

AC(IP)-DLOG(S)*N+I+I 
480 CONTINUE 



735 S-AC(MN) 
MO-MN-1 

DO 730 I-MN.MX 

IF(AC(I) .GE.S) GOTO 730 

MO-I-1 

S=AC(I) 
730 CONTINUE 
780 IF(NAUT.Eq.l) THEN 

MP-MO 

MOPT-MO 

write (6,*) ' OPTIMUM ORDER OR POLYNOMIAL 
ELSE 
MP -MOPT 
MO-MOPT 
ENDIF 

DO 790 3-1, N 



980 
940 



X(3)-X(3)/RA+XM 
F(3)=F(3)/RB+FM 



»*****CALCULATION OF COEFFICENTS** ********* 

MOP=MP+l 

DO 890 K-l.MOP 

CF(K)=Z 

P(K)-Z 

P2(K)-Z 

CONTINUE 

CF(1)-B(1)/RB+FM 
IF(MO.EQ.O) GOTO 1110 
P(1)«0 

DO 940 I-l.MO 
IP=I+1 
U-Z 
Wl-0 
DO 980 



.. K = l , IP 

T-P(K) 

P(K)-U-AL(I)*T-BE(I)*P2(K) 



P2(K)=T 

T=P(K)*B(IP)*Wl 
DO 1040 3-1, K 
CF(K-3+l)-CF(K-3+l)+T/RB 
T— T*(K-3)*XM/3 
CONTINUE 
Wl=Wl*RA 
CONTINUE 
CONTINUE 
RETURN 

write (6,*) 

STOP 
END 



KOFITC_PACK.f 



FITTING IS WRONG, PLEASE TRY ANOTHER METHOD' 



***************************************************************** 

SUBROUTINE POLYFITC_i nteger (IY , CF , FITO , IX) 

INPUT AND OUTPUT ARE INTEGER 

IY: INPUT, AUTOVA R I AB L E VALUE 
CF(21) I INPUT, COEFFICIENT 
FITO: INPUT, ACTUAL FIT ORDER 
IX: OUTPUT, FITTED VALUE 



SUBROUTINE POLYFITC_i nteger (IY , CF , FITO , IX) 



IMPLICIT INTEGER*2 (l-N) 
INTEGER*2 FITO 
REAL*4 CF(21) 
REAL*8 XXX, SUM 



Y-FLOAT(IY) 

MMM-FITO+1 

SUM-CF(l) 

DO 20 1-2, MMM 

XXX-CF(I)*(Y**(I-1)) 

SUM-SUM+XXX 
CONTINUE 
IX-INT(SUM) 



SUBROUTINE POLYFITC_rea1 (Y, CF , FITO , X) 
INPUT AND OUTPUT ARE REAL VALUE 

y: input, autovariable value 

CF(21):INPUT, COEFFICIENT 
FITO: INPUT, ACTUAL FIT ORDER 
X: OUTPUT, FITTED VALUE 
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SUBROUTINE POLYFITC_real (Y , CF , FITO , X) 
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IMPLICIT INTEGER*2 (I-N) 
INTEGER* 2 FITO 
REAL*4 CF(21) 
REAL*8 XXX, SUM 



MMM-FITO+1 

SUM=CF(1) 

DO 20 I=2,MMM 

XXX«CF(I)*(Y**(I-1)) 

SUM=SUM+XXX 
CONTINUE 
X=SUM 
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kyoukai .f 

subroutine kyoukai (IP, JP, isx, ISY, isw) 

c 

CS call kyoukai (IP, 3 P, ISX, ISY, ISW) 

c 

CP 2-CHI GAZOU NO KYOUKAI (EDGE) 0 KENSYUTSU SURU. 

CP (4-RENKETSU) 

C 

CA IP(ISX,ISY) * NYURYOKU 2-CHI GAZOU (IN) 

CA JP(ISX,ISY) * SYUTSURYOKU EDGE (OUT) 

CA ISW * SWITCH (IN) 

CA IS.EQ.l — - UCHIGAWA 

CA IS.NE.l --- SOTOGAWA 

C 

CN SYUTSURYOKO EDGE WA 8-RENKETSU DE MOTOME RARERU. 

C 

C 

CK BORDER, BOUNDARY, BINARY IMAGE 
C 

CD 1979.06.13 M.TEZUKA 



C 
C 



C 
C 



C 
C 



integer*2 IP(ISX,ISY) 
integer*2 JP(ISX,ISY) 



jsx = isx 

JSY = ISY 
ID = 1 

IF (ISW .NE. 1) ID = 0 
IN = 1-ID 



DO 300 IY=1,JSY 
IYMl = MAX0(1,IY-1) 
IYPl = MIN0(JSY,IY+1) 

C 

DO 300 IX=1,JSX 
JPD = 0 

IF (IP(IX,IY) .NE. ID) GO TO 200 

C 

IXMl = MAX0(1,IX-1) 
IXPl = MIN0(JSX,IX+1) 

C 

IF (IP(IX,IYM1) .EQ. IN) GO TO 100 
IF (IP(IXM1,IY) .EQ. IN) GO TO 100 
IF (IP(IXP1,IY) .EQ. IN) GO TO 100 
IF (IP(IX,IYP1) .NE. IN) GO TO 200 

C 

100 CONTINUE 
JPD = 1 

C 

200 CONTINUE 

JP(IX,IY) = JPD 

C 

300 CONTINUE 

C 
C 

RETURN 
END 
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C-- 

c 
c 
c 
c 

C-- 

c 
c 

CD 

CD 

C 

C 

C 

CP 
CP 
CP 
C 

c 
c 

cs 
c 
c 
c 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

C 

C 

C 

CL 

C 

C 

c 

CN 
CN 
CN 
C 

C-- 

c 

CK 

c-- 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



PROGRAM NAME: 
FUNCTION : 



line3.f 



LINE (TYPE : SUBROUTINE) 

Make WHITE BOLD LINE BETWEEN TWO POINTS 



CODED BY 
REVISED BY 



AUTHOR 
M.SONE 
T.KOMATSU 



DATE (DD-MMM-YY) 
30-3UN-85 
25-FEB-86 



PURPOSE: 

GENERATION OF LINES 

CALLING SEQUENCE: 

CALL LINE3 (KP , ISX , ISY , IXl , IYl , 1X2 , IY2 , J ERR) 



ARGUMENT(S) 

KP(ISX,ISY) 

IXl, IYl 
1X2 , IY2 
JERR 



TYPE I/O 

I/O 

I 
I 
0 



COMMENT 

IMAGE ARRAY IN WHICH THE 
GENERATED LINES ARE STORED 

COORDINATE OF CURRENT POINT 

COORDINATE OF NEXT POINT 

JERR=0 NO ERROR 

JERR=-1 IXl.LE.O 
IYl.LE.O 
1X2. GT. ISX 
IY2.GT.ISY 



SUBPROGRAMS USED IN THIS PROGRAM: 
NONE 



NOTE: 



REFERECCE 

J . E . BRESENHAM , "ALGORITHM FOR COMPUTER CONTROL OF A DIGITAL 
PLOTTER'MBM SYSTEMS JOURNAL, VOL. 4, NO. 1, PP. 25-30(1965). 



KEYWORDS : 
LINE 
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Iine3.f 

C 

SUBROUTINE LINE3 (KP , ISX , ISY , IXl , IYl , 1X2 , IY2 , 3 ERR) 

C 
C 

integer*2 KP(ISX,ISY) 

c 

IC=IX2-IX1+IY2-IY1 

IF(IC.LT.O) GO TO 100 

GO TO 150 
100 IA=IXl 

IB=IYl 

1X1=1X2 

IYl=IY2 

IX2=IA 

IY2=IB 
150 CONTINUE 

C 

IF(IXl.LE.O.OR.IXl.GT.ISX) GO TO 550 
IF(lX2.LE.0.OR.IX2.GT.ISX) GO TO 550 
IF(lYl.LE.O.OR.IYl.GT.ISY) GO TO 550 
IF(IY2.LE.O.OR.IY2.GT.ISY) GO TO 550 

C 

3ERR=0 

KP(IX1,IY1)=1023 
KP(lXl+l,IYl)=1023 

KP(lXl,IYl+l)=1023 

KP(IXl+l,IYl+l)=1023 

IDX=IAB5(IX2-IX1) 
IDY=IABS(IY2-IYl) 

Q ********************************************** 

IS=IX2-IXl 

IF(IC.EQ.0 -AND. IS.GT.O) GO TO 220 
IF(IDX.LE.IDY) GO TO 200 
220 CONTINUE 

ICON2=2*IDY 

IE=ICON2-IDX 

ICONl=IE-IDX 

IFClYl.LT. IY2) INC=1 

IF(IY1.GE.IY2) INC=-1 

IY=IYl 

IZZ=IXl+l 

DO 300 IX=IZZ,IX2 

IF(IE.GT.O) GO TO 250 

IF(IE.LE.O) GO TO 350 

C 

CF SELECT (IX+1,IY+INC) 
C 

250 IY=IY+INC 

IE=IE+ICONl 
GO TO 270 

C 

CF SELECT (IX+1,IY) 
C 

350 IE=IE+ICON2 

c 

270 KP(IX,IY)=1023 

KP(IX+1,IY)=1023 

KP(IX,IY+1)=1023 

KP(IX+1,IY+1)=1023 
300 CONTINUE 
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c 

CF RESET 
C 

IF(IC.GE.O) GO TO 310 
1X2=1X1 
IY2=IYl 
IXl=IA 
IYl=IB 
310 CONTINUE 
GO TO 600 

200 CONTINUE 

ICON2=2*IDX 

IE=ICON2-IDY 

ICONl=IE-IDY 

IFClXl.LT. 1X2) INC=1 

IF(IX1.GE.IX2) INC=-1 

IX=IXl 

IZZ=IYl+l 

DO 400 IY=IZZ,IY2 

IF(IE.GT.O) GO TO 450 

IF(IE.LE.O) GO TO 500 

C 

CF SELECT (IX+INC.IY+l) 
C 

450 IX=IX+INC 

IE=IE+ICONl 
GO TO 470 

C 

CF SELECT (IX,IY+1) 
C 

500 IE=IE+ICON2 

C 

470 KP(IX,IY)=1023 

KP(IX+1,IY)=1023 

KP(IX,IY+1)=1023 

KP(IX+1,IY+1)=1023 
400 CONTINUE 

C 

CF RESET 
C 

IF(IC.GE.O) GO TO 510 
1X2=1X1 
IY2=IYl 
IXl=IA 
IYl=IB 
510 CONTINUE 
GO TO 600 

550 CONTINUE 

JERR=-1 
600 RETURN 

END 



Page 3 



LOCAL_MATCHING_SKIP . f 



function Local_Matchi ng_Ski p( imagel, image2, ncol , nlin, sas, tps, 
1 number, sac, tpc, regionl, skip, DX, DY, CC ) 



Ver. 1.0 

Written by Akiko Kano, 



Apr. 12, 1993 



This function performs a local matching for pairs of ROls with reduced 
matrix sizes, based on a cross-correlation method. 
Normalized cross-correlation value cc is defined as the summation of 
(a(i .j)-A)*(b(i.j)-B)/(sa*sb), for i-l,2,..,n and j-1.2 , . . .n. where 
matrix a(i,j) is a template ROI, b(i,i) is a subregion in the corres- 
ponding search area ROI, A and B is the average of a(i,j) and b(i,j), 
respectively, and sa and sb is the variance of a(i,;j) and b(i,j), 
respectively. 

This function searches the best match subregion which maximizes CC for 
each template, by using a reduced matrix size with skipping pixels. 
This function returns the CC and shift values OX and DY, which corres- 
pond to the difference in x,y-location between the center of the best 
match subregion and the center of the template. 



(1) Both template size and search area size must be "skip*2N+l" (n: 
integer), and distance increment must be "skip*M" (M:integer). 

(2) Templates are selected on Image2 and search areas are selected on 
Imagel. 

(3) Calculation of CC is based on a subroutine in "SPIDER" . 

(4) Search of subregions is based on a coarse-and-fi ne search method 
in "SPIDER" . 

(5) Returns "error" if the average cross-correlation value is less than 
O.S. 

This function calls; CORR2 



[o] 
[o] 



implicit none 
integerM MAXPT 
parameter (MAXPT=3000) 



integerM 
integerM 
integer*2 
integer*2 
integerM 
i ntegerM 
i ntegerM 
i ntegerM 
integerM 
integerM 
integerM 
i ntegerM 



Local Jlatchi ng_ski p 
ncol, nlin 
imagel(ncol , nli n) 
image2(ncol ,nlin) 
tps 
sas 

number 

sac(2,MAXPT) 
tpc (2 , MAXPT) 
regionl(4) 
skip 

DX(MAXPT), DY (MAXPT) 



realM CC(MAXPT) 



realM 



LOW_CC 



I Maximum No. of ROI Pairs 



I Matrix size of image Data 

! original Image Data 1 

! original Image Data 2 

! Template ROI Size (Pixels) 

! Search Area ROI Size (Pixels) 

! Number of ROI Pairs 

! Centers of Search Areas on Imagel 

! Centers of Templates on Image2 

I Smallest Rect. Area Including sac 

! Matrix Size Reduction Rate 
! Shift Values 

! cross-correlation Values 



parameter (LOW_a>0.5) 

parameter (,LOW_a>0.2) 

integerM isa(4) 

integerM hsas, htps, stps 
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LOCAL_MATCHING_SKIP . f 
integerM rlimit, llimit, tlimit, blimit 
integerM SCI, SLl, ECl, ELl, CCl, CLl 
integerM SC2 , SL2 , EC2 , EL2 
integerM ncs, nls 
integerM dx, JY, N 

integerM maxdim 
parameter (maxdim-1000) 

integerM buf_sa_ski p (MAXDIM, MAXDIM) , buf_tp_ski p (MAXDIM, MAXDIM) ! Shige 

realM ave_ccv 

Pointers 

pointer (p_sa_skip, buf_sa_skip) , (p_tp_skip, buf_tp_skip) 



FUNCTIONS 

integerM Convert_for_Spider_Ski p 

integerM PutOutputF 

real*8 Sprint 

integer malloc 



1. DEFINE HALF ROI SIZES 



hsas > 
htps 



sas / 

tps / ; 



2 . DETERMINE THE REGION INCLUDING WHOLE SEARCH AREAS 



rlimit - regionl(l) - skip * i 

tlimit « regionim - skip * i 

llimit - regionim + skip * i 

blimit - regionl(4) + skip * i 



^regionl(l)-l) / skip 



(regionl(2)-l) / sk 
(ncol-regionl(3)) / 
(nlin-regionl(4)) / 



skip 

' si..,, 
skip 



skip j 



SCI - max( regionl(l)-hsas, rlimit ; 

SLl = max( regionl(2)-hsas, tlimit ] 

ECl = mint regionl(3)+hsas, llimit , 

ELl - mint regionl(4)+hsas, blimit ; 
ncs - ( ECl - SCI ) / skip + 1 
nls ■ ( ELl - SLl ) / skip + 1 



3. GET BUFFER MEMORY FOR THE SEARCH REGION WITH REDUCED MATRIX SIZE 



call LIB$GET_VM( ncs*nlsM, buf_sa_skip ) 

p_sa_skip - malloc( ncs*nls*4 ) 

if (ncs .gt. MAXDIM .or. nls .gt. MAXDIM) then 

write(*,*) "Too Large Dimension of buf_sa_skip' 

stojs 

call converLFor_spider_skip( imagel, buf„sa_skip. 
1 ncs, nls 

call PutOutputFC ') 
write(*,*) v ' 
ave_ccv - 0.0 



ncol, nlin, 
scl, SLl, skip ) 



stps - tps / skip + 1 
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c call LIB$GET_VM( stps*stpsM, buf_tp„skip ) 

! p_tp_skip ■ malloc( stps*stpsM ) 

if (stps .gt. MAXDIM) then 
write(*,*) 'Too Large Dimension of buf_tp_skip' 
stop 
end if 

do N ■ 1, number 

! 

! 4. LOCATE SEARCH AREA WITH REDUCED MATRIX SIZE 

! 

CCl - ( sacfl.N) - scl W skip + 1 
CLl - ( sac(2,N) - SLl ) / skip + 1 

isa(3) ■ min( CCl+hsas/skip, ncs ) 

isa(4) m mint CLl+hsas/ski p, nls ) 

isa(l) * max( ccl-hsas/skip, 1 ) 

isa(2) - max( CLl-hsas/ski p , 1 ) 

i 

j 5. LOCATE TEMPLATE WITH REDUCED MATRIX SIZE 

! — 

SC2 - tpc(l.N) - htps 
SL2 - tpc(2,N) - htps 

1 6. GET BUFFER MEMORY FOR THE TEMPLATE WITH REDUCED MATRIX SIZE 

call convert_For_spider„Skip( image2, buf_tp_skip, ncol, nlin, 
1 stps, stps, SC2, SL2 , skip ) 

! 

! 7. FIND THE BEST MATCH WITH REDUCED MATRIX SIZE 

l 

I 

! using fine scan correlation 
! modified by Qiang Li 

call C0RR1( buf_sa_skip, buf_tp_skip, 
1 stps, stps, ncs, nls, isa, DX, DY, cc(n) ) 

C DX(N) - 0 

C DY(N) » 0 

DX(N) - SCI + ( 3X - 1 ) * skip - SC2 

DY(N) ■ SLl + ( DY - 1 ) * skip - SL2 

c write (*,*) n, dx, dy, dx(n), dy(n), cc(n) 

ave_ccv » ave_ccv + cc(n) 

c if ( mod(N,SO).eq.O ) write(*,*) N, '/'. ave_ccv/float(N) 

c if ( mod(N,300).eq.O ) write(*,*) ' ' 

(- 

! 8. CLEAR THE BUFFER 

| 

c call LIB$FREE_VM( stps*stpsM, buf_tp_skip ) 

end do 

! call free( p„tp_skip ) 

c call LIB$FREE_VM( ncs*nlsM, buf_sa_skip ) 

I call free( p_sa_skip ) 

! — 

! 9. CHECK THE AVERAGE CROSS-CORRELATION VALUE 

! 

ave_ccv * ave_ccv / float (number) 
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if ( ave_ccv.lt.LOW_CC ) then 
write(*,*) 

1 '!!! Average cross-correlation value ', ave_ccv, 

Local_Matching_skip - 0 

else 

Local_Matching_skip - 1 
end if 

write(*,*) ' ' 
END 



subroutine Convert_For_Spider_Skip( image, image_sp, ncol, nlin, 
1 rcol, rlin, scol , slin, skip ) 



Ver. 1.0 

Written by Akiko Kano, 



Apr. 9, 1993 



This function converts a part of image data to an integerM array for 
use in subroutines in "SPIDER". 



implicit none 

integerM Convert_for_spider_Skip 



integerM ncol , nlin 

integerM rcol , rlin 

integerM scol , slin 

integer*2 image(ncol ,nlin) 

integerM image_sp(rcol , rli n) 

integerM skip 



Matrix size of Original Image Data 
! Matrix Size of Spider Image Data 
I Start Point 
I Original Image Data 
! Spider Image Data 
I Reduction Rate of Matrix Size 



VARIABLES 



integerM ecol , elin 
integerM C, L, cc, LL, data 



ecol « scol + skip * (rcol-1) 
elin ■ slin + skip * (rlin-1) 
if ( ecol. gt. ncol .or . eli n.gt. nli n ) then 

write(*,*) '!!! Invalid ROI size \ rcol, ' X ', rlin, '.!!!' 

Convert_for_spider_skip = 0 

else 

do l - slin, elin, skip 

do C * scol , ecol , skip 
data = image(c,L) 



- (C-scol) / skip + 1 
« (L-slin) / j ' " 
image_sp(cc,LL) • 



LL 



skip + 1 
. - data 

end do 
end do 

Convert_for_spider_Skip * 1 
end if 



END 

return 
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lung_boundary.l 

c ****************** ********************** ******** 
subroutine: lung_boundary 

This subroutine is to combine ribcage detection 
and diaphragm detection together to delineate 
lung boundary. 

Input: image(nxw.nyh) , image buffer: lk by lk 
output: R.lribcage; R.Ldiaph: ribcage & diaphragm coordinates 

Date: 12/9/93 VI 

link with subroutines: ribcage_detection,ribcagepoint3 
chest_pack3 , kof i tc_pack , di aphragm_detecti on 



xin-wei xu 



subroutine lung_boundary(image, ncol ,nlin, feature, 
% Rri be age , Rri bcage_No , 

X L ri bcage , Lri bcage_No , 

X Rdia P h,Rdiaph_No, 
X Ldiaph,Ldiaph_No, 

% Ri ndex , Li ndex , cf_ri b_r , cf_ri b_l , cf_di a_r , cf_di a_l ) 



implicit integer*2 (i-n) 
integer*4 ncol ,nlin 

integer*2 image(ncol ,nlin) ! image buffer 



integer*2 



Rribcage(2 ,1215) , Rri bcage_No , ! R ribcage output 
Lribcage(2 ,1215) , Lri bcage_No, ! L ribcage output 



Rdi aphf 2 , 1215) , Rdi aph_No , 
Ldiaph(2 , 1215) , Ldi aph_No 



! R diaphragm output 
I L diaphragm output 



integer*2 feature(SO) ! landmarks of chest, from ribcage detection 

integer*2 Rindex ! =1 right tip angle close; -2 not; 

integer*2 Lindex ! -1 left tip angle close; -2 not; 
realM -* - JL -* " u " 



integer*2 Lindex ! 
realM 
realM 



cf_rib_r(21),cf_rib_U21) 
cf_dia_r(21) ,cf_dia_l (21) 



integer*2 temp(2,1215) 



Begin 1 



Ri ndex»l 
Lindex=l 
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cal 1 ri bcage_detecti on (Image , ncol , nl i n, feature , 
& Rri bcage , Rri bcage_No , 

& Lri bcage , Lri bcage_No , cf_ri b_r , cf_ri b_l ) 



i.*)' Fi 
;,*)'Rri 
ie(2,Rri 



nish ribcage detection ' 
Rribcage: ' ,Rribcage_No,Rribcage(l,Rribcage_No) , 
Rribcage_No) 



writeC6,*; 
write (6 ^ 
XRribcagi 

write (6,*) 'Lri bcage: ' ,Lribcage_No. Lri bcage (1, Lri bcage.No) , 
XL ribcage (2, Lri bcage_No) 

I** **************** ************************************************* 

cal 1 di aphragm_detecti on(i mage , ncol , nl i n , feature , 
( Rdiaph,Rdiaph_No, 
£ Ldi aph . Ldi aph_No , cf_di a_r , cf _di a_l ) 

write(6,*)' Finish diaphragm detection ' 
write(6,*) 'Rdi aph: ' ,Rdiaph_NO,Rdiaph(l,l) , 
XRdiaph(2,l) 

write(6,*)'Ldiaph: ' ,Ldiaph_No,Ldiaph(l,Ldiaph_No) , 
XLdiaph(2 ,Ldiaph_No) 

r ******************************************************************* 



do i=l,1215 

temp(l,i)-0 

temp(2,i)=0 
end do 

if (Rdiaph(2,l).gt.nlin-1) then 
Ri ndex=2 

do i=l,Rdiaph_No 

if (Rdiaph(2,i).le.nlin-1) then 
jstart=i 
go to 10 
end if 
end do 
conti nue 



do°i» 



»jstart,Rdiaph_No 

temJfl,i)=Rdiaphfl,i) 
temph.^-Rdiaph^.i) 
end do 
Rdi aph_No-j 

do i-1, 1215 

Rdiaph(l,i)=0 

Rdiaph(2,i)»0 
end do 

do i-l,Rdiaph_No 

Rdiaphfl,i)=temp(l,i) 

Rdiaph(2,i)-temp(2,i) 
end do 

end if 

if (Rribcage(2 I Rribcage_No).le.Rdiaph(2,l)) then 
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NR-Rdiaph(2,l)-Rribcage(2,Rribcage_No) 

iy0-Rribcage(2 ,Rribcage_No) 

ixO=Rribcage(l,Rribcage„No) 

do j-l,NR 

Rribcage_No-Rribcage_No+l 
Rri bcage (2 , Rri bcage_No) -i yO+j 
Rri bcage (1 , Rri bcage_No) -i xO 

end do 
end if 

wri te(6 , *) 1 NR- ' ,NR 

if (Rindex.eq.2) then 
do i-l,Rdiaph_No 

temp(l,i)»Rdiaphfl,i) 

temp(2,i)=Rdiaph(2,i) 
end do 
j-0 

do i -Rri bcage (1 , Rri bcage_No) , Rdi aph(l , 1) 
j-j+1 

Rdiaph(l,i)=i 
Rdiaph(2,])=nlin-1 
end do 

do i-l,Rdiaph_No 
k=j+i 

Rdiaph(l,k)»tempfl,i) 

Rdiaph(2,k)=temp(2,i) 
end do 
Rdiaph_No=k 
end if 



do i-1, 1215 

temp(l,i)=0 

temp(2,i)=0 
end do 

if (Ldiaph(2,Ldiaph_No).gt.nlin-l) then 
Lindex-2 

do i -Ldi aph_No, 1,-1 

if (Ldiaph(2,i).le.nlin-1) then 
jend-i 
go to 20 
end if 
end do 
conti nue 
3-0 

do i-1, j end 

r.emp~fl,i)=Ldiaphfl,i) 

temp(2,])=Ldiaph(2,i) 
end do 
Ldiaph_No-j 

do i-1, 1215 

Ldiaph(l,i)-0 

Ldiaph(2,i)=0 
end do 

do i=*l,Ldiaph_No 

Ldiaphfl,i)-temp(l,i) 

Ldiaph(2,i)=temp(2,i) 
end do 
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if (Lribcage(2,Lribcage_No).le.Ldiaph(2,Ldiaph_No)) then 
NL-Ldiaph(2,Ldi aph_No)-Lribcage(2 , Lribcage_No) 
i yO-Lri bcage CI , Lri bcage_No) 
i xO-Lri bcage (1 , Lri bcage_No) 
do j-l,NL 

L ri bcage_No-Lri bcage_No+l 

L ri bcage (2 , L ri bcage_No)=i y0+ j 

Lribcage(l,Lribcage_No)-ixO 
end do 
end if 

write(6,*)'NL-' ,NL 

if (Lindex. eq. 2) then 
j-0 

do i -Ldi aph(l, Ldi aph_No), Lri bcage (l,Lribcage_No) 
j-j+1 

temp(l,j)-i 

temp(2,])*nlin-l 
end do 
do i=l. j 

k-Ldiaph_No+i 

Ldiaph(l,k)-temp(l,i) 

Ldiaph(2,k)«temp(2,i) 
end do 

Ldi aph_No-Ldi aph_No+j 
end if 



end ' 
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Subroutine lut_f i lename_ 

Determination of Filename of Nonlinear Density Correction LUT 
Coded by shige 

— W 

(♦include <stdio.h> 
#include <string.h> 
((include <stdlib.h> 
((include <time.h> 



Hifdef KRL_GNU 

(♦define lut_filename lut_filename 

«else 

((define lut_filename lut_f ilename^ 
ttendif 

extern "C" void lut_f ilename (char «dirlut, char *head, char *density, 
char *tableNo, char* tail, char *filename) 

sprintf (filename, "%s%s%s%s%s" , dirlut, 
head, 
density, 
tableNo, 
tail), 

} 



Subroutine lut_f ilename_ 

Determination of Filename of Nonlinear Density Correction LUT 
Coded by Shige 

= = = */ 

#include <stdio .h> 
#include <string . h> 

#include <stdlib . h> 
#include <time.h> 



ttifdef KRL_GNU 

#define lut_filename lut_filename 

#else 

#define lut_filename lut_f ilename_ 
#endif 

extern "C" void lut_f ilename (char *dirlut, char *head, char *density, 

char *tableNo, char* tail, char ^filename) 

{ 

sprint f (filename, "%s%s%s%s%s" , dirlut , 

head, 
density, 
tableNo, 
tail) ; 

} 



/* 



Subroutine nonlinear_density_correction_ 
Nonlinear Density Correction 
Coded by Shige 



#include 
#include 
#include 
# include 
# include 



<stdio.h> 

<string.h> 
<stdlib.h> 
<time . h> 

"TempSub.H" 



#ifdef KRLJ3NU 

#def ine get_density_correction_f actor get_density_correction_f actor 

#define density_correction density__correction 

#def ine nonlinear_density_correction nonlinear_density_correction 

#else 

#def ine get_density_correction_f actor get__density_correction_f actor_ 
#define density_correction density_correction_ 

#def ine nonlinear_density_correction nonlinear_density_correction_ 
#endif 



extern StudyPara ReadTSubDef File (char*) ; 

extern "C" void get_density__correction_f actor ( short* , int*, int*, int*, 

short*, short*, char*, int*, 
short (*) [2] , short*) ; 

extern "C" int density__correction ( short* , int*, int*, short (*) [2] ) ; 

extern "C" void nonlinear_density_correct ion ( short *CurImage, 

short *PreImage, 
int *col, int *lin, 
char *Def File) 

{ 

StudyPara StudyPara = ReadTSubDef File (Def File) ; 
if ( StudyPara. densityCorrection == OFF) { 

printf ("DensityCorrection is OFF\n" ) ; 

return; 

} 

printf ( "Nonlinear Density Correction\n" ) ; 

int grayscale = -1; // 1 : 0=Lighter , -l:0=Darker 

short dens = 3; // Scanner Density Range; 3 : (0-3 ) 4 : (0-4) 

short type = 1; // Screen/Film Type; l:Med/OC, 2 : Med/TMG, 

3 : insight HC 

int leng = strlen ( StudyPara . denCorLutDir ) ; 
short DCTable [1024] [2]; // LUT 
short TableNo; 

/* 

Nonlinear Density Correction for Current Image 

— */ 

get_density_correction_f actor (Curlmage, col, lin, ^grayscale, 

&dens, fctype, StudyPara . denCorLutDir , &leng, 
DCTable, ScTableNo) ; 

printf ("Curlmage; TableNo = %d\n" , TableNo); 

//if (TableNo != 0 (TableNo < 8 || TableNo > 9) ) { 

if (TableNo 1= 0) { 



(void) density_correct ion (Cur Image, col, lin, DCTable) ; 

} 

else { 

print f ( "Cur Image; Density correction was not necessary . \n M ) ; 
} 

/* 

Nonlinear Density Correction for Previous Image 



get_density_correct ion_f actor ( Prelmage , col , lin, ^grayscale , 

Scdens, &type, studyPara . denCorLutDir , fcleng, 
DCTable, &TableNo) ; 
print f ("Prelmage; TableNo = %d\n" , TableNo); 
//if (TableNo != 0 (TableNo < 8 || TableNo > 9) ) { 
if (TableNo 1= 0) { 

(void) density_correct ion (Prelmage, col, lin, DCTable) ; 

} 

else { 

print f ( "Prelmage; Density correction was not necessary . \n" ) ; 



null_string.f 



c 



c 



subroutine null pi us (filename, nchar) 
c To add null character following strings 

f i 1 ename st ri nqs (IN/OUT) 

nchar No. of characters (OUT) 



c 
c 
c 

c JUL 5, 1994 coded by SHIGE 

c 



implicit integer*4 (i-n) 
character* (*) f i 1 ename 
character*256 file 
character*! f(256) 
equivalence (file, f(D) 

file = filename 

call countchar(file, nchar) 
f(nchar+l) = char(O) 

filename = file 

return 
end 



subroutine nullminus(outfile, nchar) 
c Replace Null with Space 

C nchar < 0 NO NULL CHARACTER 

c Coded by SHIGE, 12/27/95 



implicit integerM (i-n) 
character* (*) outfile 
character*256 filename 
character*! file(256) 
equi val ence (f i 1 ename , f i 1 e (1) ) 

nb = 256 

filename = outfile 

do i = 1, nb 

if(file(i) -eq. char(O)) goto 11 
end do 

write(*,*) '***** NO NULL CHARATER *****' 

nchar = -1 
return 



11 nchar = i 



do i = i , nb 

file(j) = ' ' 
end do 

outfile = filename 

return 
end 



subrouti ne countchar(outfi 1 e , nchar) 

C COUNT NO. OF CHARACTERS 



implicit integer*4 (i-n) 
character* (*) outf i 1 e 
character*256 f i 1 ename 
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character*l file(256) 

equi val ence (f i 1 ename , f i 1 e(l)) 

L nb=256 
c 

do 10 i=l,nb 

fi1e(i) = ' ' 

10 continue 
c 

filename=outfile 

c 

do 20 i=nb,l,-l 

if(file(i).ne. 1 ') goto 21 

20 continue 

write(*,*) '***** no characters *****' 
stop 

21 nchar=i 
return 
end 
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Quantitative analysis of temporal subtraction image 
subroutine quanti 2Ci sub , ncol , nli n, rribcage2 , lribcage2, 



rribcage_no2 , 1 ri bcage_no2 ,midl i ne , top, bot, off set , 
iyl_rulel P ixl_rule2.iyl_rule2,ix2_rule2,iy2_rule2, 
i xl_rul e3 , i mgcontr , imgcontl , i roi IL , shi f trrn d , ri btop , f i n 



magni fy) 



[I] 
[I] 
[I] 
[I] 
[I] 
[I] 

[13 

image [I] 



Function of this subroutine is to determine the widths of the 
histograms for right and left lungs. 
Coded by Takayuki Ishida: 3 an. 14.1998 

(1) First of all, do segmentation of lungs using ribcage edges. 
Image of ROI "i roiMAPCi . j) " include 4 values. 
Upper-Right » 1, Lower-Right - 2, 

upper-Left - 3, Lower-Left - 4 

(2) segmentation of lungs using cardiac edges. 

(3) Determination of final ROI. (size of ROI : 30 x 120 ) 

(4) calculate average contrast and width of histograms 
Average contrast is determined by averaging of absolute 
pixel value of subtraction image. 

Width of histogram at a 10% of maximum level is determined 
from smoothed histogram. 

implicit integer*4 (i-n) 

integer*4 ncol.nl in 

integer*2 isub(ncol ,nlin) 

integer*2 rribcage2(2 , 121S) 

integer*2 1 ri bcage2 (2 ,1215) 

integer*2 rribcage_no2 

integer*2 lribcage_no2 

integer*4 midli ne , top, bot 

integer*4 offset 



I Matix size of the image 
! input subtraction image 
! Right Ribcage Points for Image2 
! Left Ribcage Points for Image2 
! No. of Right Ribcage Points for Image2 
! No. of Left Ribcage Points for Image2 
! midline, top-lung, bottom-lung locations 
! offset value used for the subtraction 



integer*4 i x!L_rule2 ,iyl_rul e2 
integer*4 i x2_rule2 , iy2_rule2 
integer*4 ixl_rule3(2,600) 



x-location 

integerM iyl_rulel 



! Upper-right location of mediastinui 

! upper-left of left cardiac edge 

I x-locations of cardiac edges 

! ixl_rule3Cl,600) -> right cardiac 

! ixl_rule3(2,600) -> left cardiac 

! bottom of right cardiac edge 



(ixl_rule2,iyl_rule2) 



r \ 



Cix2_rule2,iy2_rule2) 
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! iyLrulel -> x I 

integer*4 imgcontr.imgcontl 

integer*2 i roilLCncol , nli n) ! illustration of Small ROI 

[O] 

! This is an image of segmented ROI 
I for determination of width of the 
I histogram. 

integer*4 shi ftmid , ribtop I Global shift values for x and y location 

^ character*! findi I Indicator for saving file name 

^ ! (Subl or Sub2). Not so important. 

realM magnify ! Contrast factor for subtraction image 

[I] 

? These two histograms are not used for determination of 

t the width of the histograms. Chi stogram(-1024 : 1023) and hi stoabs(0 : 1023)) 

integerM histogram(-1024:1023) ! Histogram of the right and the left lungs 

of 

! subtraction image. 
integerM histoabs(0:1023) ! Histogram of the absolute pixel value 

! of the right and the left subtraction 

image. 

integer*4 val_hist I work for making histogram. 

integerM histo_R(-1024 : 1023) I Histogram of the right lung for 

! determination of the width of the 

hlSt ° 9ra integerM histo_L(-1024:1023) ! Histogram of the left lung for 

I determination of the width of the 

histogram. 

realM hi sto_R_SM(2048) t Smoothed histogram of the right lung 

! determination of the width of the 

hlSt ° 9ra ?ealM histo_L_SM(2048) ! smoothed histogram of the left lung 

! determination of the width of the 
histogram. , ... 

integer*2 nn.ma I Parameters for smoothing using moving 

average . 

! Defined in the smoothing part in this 

subroutine. 

integerM ixl_rule3wk(2 ,-100: 700) ! work area 

I — — 

! Not used in this subroutine. 

integerM i prof (2, 600) ! signature of the small ROIs. 

integers i roiMAP(600,600) ! Image map of Large ROI 

? - — — — 

! Parameters 

itopcut=100 ! un-used margin of top-lungs for small ROI. 

isidecut-30 ! un-used margin belong Rt and Lt ribcage edges 

! for small ROI. 

iheartcut-30 ! un-used margin belong Rt and Lt cardiac edges 
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! for small ROI. 

ibotcut=50 ! un-used margin of bottom-lungs for small ROI. 

ibandwidth=30 ! ROI width 

ibandhight=120 ! ROI hight 

imageavg=0 ! average for the subtraction image. 

Global shift for cardiac edge. 



iyl_rulel»i yl_ru lei- ribtop 
ixl_rule2-ixl_rule2-shiftmid-iheartcut 
ix2_rule2-ix2_rule2-shiftmid+iheartcut 
iy2_rule2-iy2_rule2- ribtop 

do i — 100,700 

ixl_rule3wk(l,i)«ixl_rule2 
ixl_rule3wk(2 ,i)*ix2_rule2 



do i -1,586 

if(ixl_rule3(l,i).ne.0.and.ixLrule3C2,i).ne.0) then 
ixl_rule3wk(l,i-ribtop)-ixl_rule3fl,i)-shiftmid-iheartcut 
ixLrule3wk(2,i- ribtop) «ixl_rule3 (2 ,i)-shiftmid+i heartcut 

end if 
end do 

Determine lung bottom location 

"iyLrulel" means the lowest location of the right cardiac edge 

which was detected with a subroutine chs_sub.f. 

"ibotcut" means un-used margin of bottom-lungs for small ROI. 



bot»iyl_rulel-ibotcut 



Determination of the center of the ROI. 
i hal f-(bot-top)/2+top+i topcut/2 



Make original-contrast subtraction image for determination of the 

width of the histogram. 

And also i ni i ti alization of ROI area map. 



do j-l,ncol 
do i-l,nlin 
isubC 
i roi MAP 
iroiiLC" 
end do 
end do 



i , j)«int(i 
AP(1,1)-0 
Ui.jJ-0 



nt(real (isub(i , j) -offset) /magni fy) 



initialization of the histograms. 



do i — 1024,1023 
histogram(i)=0 
histo_Rfi)=0 
histo_L(i)-0 

end do 

do i-0,1023 

histoabs(i)«0 

end do 

do i=l,2048 



histo_R_SM(i)*0.0 
histo_L_SM(i)=0.0 
end do 
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Lung segmentation for Large ROIs using ribcage edges. 

upper-Right : i roiMApfi , q)=l 

Lower-Right : i roiMAPCi , q)»2 

Upper-Left : i roiMAPCi ,}) =3 

Lower-Left : i roiMAPCi , :)=4 

do k=itopcut,rribcage_no2 

do l=rribcage2(l,k)+isidecut, midline 
if(rribcage2(2,k).lt.ihalfi then 

iroiMAP(l ,rribcage2(2,k))»l 
end if 

if(rribcage2(2,k).ge.ihalf.and.rribcage2(2,k).lt.bot) then 
iroiMAP(T,rribcage2(2,k))-2 
end if 
end do 
end do 



do k«itopcut,lribcage_no2 

do l=midline+l,lribcage2(l,k)-isidecut 
i f (1 ri bcage2 (2 , k) . 1 1 . i hal f ) 
iroiMAP?l,lribcage2C2,k))= 



then 
3 



if(lribcage2(2,k).ge.ihalf.and.lribcage2(2,k).lt.bot) then 
i roiMAP(l, Tribcage2(2,k))=4 
end if 
end do 
end do 

do k-itopcut,rribcage_no2 

ict=rribcage2(2,k)-rribcage2C2,k-l) 
ifCict.gt.l) then 
do ii=l,ict 

do l = rnbcage2(l,k-l)+i si decut, midline 
if(rribcage2C2,k).lt,ihalf3 then 

i roiMAP(l , rribcage2C2 ,k)-ii)=l 
end if 

ifCrribcage2C2.k).ge.ihalf.and.rribcage2C2,k).lt.bot) then 
i roiMAPCi, rribcage2C2,k)-ii5«2 
end if 
end do 
end do 
end if 
end do 

do k-itopcut,lribcage_no2 
ict T lribcage2C2,k) n 



bcage2C2,k-l) 

ifCict.gt.l) then' 
do ii-l,ict 

do l-mid1ine+l,lribcage2Cl,l 
ifClribcage2C2,k).lt.iha1 
i roiMAPCi ,lribcage2C2,l 
end if 



^Cl.kJ-isidecut 
ihalf) then 
2C2,k)-ii)-3 

ifClribcage2C2,k).ge.ihalf . and. 1 ribcage2 C2 , k) . It. bot) then 
i roiMAPCi . 1 ri bcage2 C2 , k) -ii )=4 



end if 
end do 
end do 
end if 
end do 
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Ignore mediastinum area and below diaphragm. 



do j»l,ncol 
do i»l,nlin 



if(i .ge.ixl_rule2.and.i . It . i x2_rule2 . 
and.i .It.iy2„rule2) then 
iroiMAP(i , j)*0 
end if 



if(j.ge.iy2_rule2.and.j .lt.iyl_rulel. 
and.i.ge.ixl_rule3wk(l,j).and. 
i.lt.ixLrule3wk(2,j)) then 
iroiMAp(i,j)-0 

end if 



end do 
end do 

call wri tei mage (i roi map, 'temp. img' ,586,586) 

Determination of band-shape small ROls for determination of 
the width of the histogram. 



This part is for determination of top and bottom limit of the ROI. 



i f (i yLrul el- rri bcage2 (2 , i topcut) . 1 1 . i bandhi ght) then 
l ystart=rri bcage2 (2 , i topcut) 
iyend-iyLrulel 

else 



iyend-iyl^rul 



iystart-ihalf-ibandhight/2 
iyend-ihalf+ibandhight/2 
md if 
do j*l,iystart-l 
do i=l, midline 

iroiMAP(i , j)»0 
end do 
end do 

do j=iyend+l, ncol 

do i*l, midline 

iroiMAP(i ,j)-0 

end do 
end do 



This part is for determination of Rt and Lt limit of the ROI. 

do i*iystart,iyend 

do k=l,ixl_rule3wk(l,j) 
if(iroiMAP(k, j) .eq.l.or.iroiMAP(k, j) .eq.2) then 
ist-k 

?oto 446 

end do 

ix_cen-(ixLrule3wk(l.j)-ist)/2+ist 
do k=ist,ix_cen-ibandwidth/2 
iroiMAP(k,j)=0 

end do 

do k*i x_cen+i bandwi dth/2 , i xl_rul e3wk(l , j ) 
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Hight of the ROI in the "iroiMAP" *< 120 

if(iyl_rulel-lribcage2(2,i topcut). lt.i bandhi ght) then 
iystart=l ri bcage2 (2 ,i topcut) 
lye nd-iyl_ rule! 

iystart*ihalf-i bandhi ght/2 
i yend-i hal f+i bandhi ght/2 
end if 

do j*l,iystart-l 
do i=midline+l,ncol 
i roiMAP(i ,j)=0 
end do 
end do 

do j=iyend+l,ncol 
do i-midline+l.ncol 
iroiMAPCi ,j)-0 
end do 
end do 
do j*iystart,iyend 

do k-ixUrule3wk(2,j)+l,ncol 
if(iroiMAP(k,j).eq.Q) then 
ist-k-1 

3oto 447 
i f 

end do 

ix_cen=Cist-ixl_rule3wk(2, j))/2+ixUrule3wk(2,:) 
do k-ixLrule3wk(2, j) ,ix_cen-i bandwi dth/2 
iroiMAP(k,j)»0 

end do 

do k«ix_cen+i bandwidth/2 , ist 
iroiMAP(k, j)=0 

end do 

cal 1 quanti 2_prof (i sub , ncol , nl i n , i roi map , i prof , f i ndi ) 
call wri tei mage (i roi MAP , ' temp. img ,586,586) 

Determine average contrast and SD of the subtraction image. 
Determine Histograms width of the subtraction image. 
The average contrast and SD of the subtraction image are determined 
here, however, the average contrast and SD are not used. 

Histograms of subtraction image are determined here. 

abs_pixa*0.0 

abs_pixi«0.0 

abs_pixo=0.0 

abs_pixr=0.0 

abs_pixl*0.0 

abs_pixql-0.0 

abs_pixq2»0.0 

abs_pixq3«0.0 

abs_pixq4=0.0 

abs_sda=0.0 

abs_5di«0.0 

abs_sdo=0.0 

abs_sdr=0.0 

abs_sdl=0.0 
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abs_sdql«0.0 

abs_sdq2*0.0 

abs_sdq3=0.0 

abs_sdq4=0.0 

numa»0 

numo*0 

numi *0 

numr*0 

numl»0 

numql=0 

numq2=0 

numq3*0 

numq4=0 

do j=»l,nl in 
do i*l, ncol 

if(iroiMAP(i , j) .ge.O) then 

numa=numa+l 

abs_pi xa=abs_pi xa+abs (i sub (i , j ) -i mageavg) 
abs_sda=abs_sda+abs (i sub (i , j ) -i mageavg) **2 
end if 

if(iroiMAP(i , j) .eq.O) then 
numo»numo+l 

abs_pixo-abs_pixo+abs(isub(i ,j)-i mageavg) 
abs_sdo*abs_sdo+abs (i sub (i , j) -i mageavg) **2 
end if 

if(iroiMAP(i,j).ge.l) then 
numi -numi +1 
val_hist«isub(i .j) 

hi stogram(val_hi st)*hi stogram(val_hi st)+l 
abs_pixi-abs_pixi+abs(isub(i , j)-i mageavg) 
abs_sdi «abs_sdi +abs Ci sub (i , j ) -i mageavg) **2 
end if 

This part is important for this subroutine. 
Detemi nation of histograms of right and left lung. 

if (i roi map (i , j) . eq.l.or. 

iroiMAP(i ,j) .eq.2) then 
numr=numr+l 
val_hist-isub(i ,i) 

histo_R(val_hist)=histo_R(val_hist)+l 
abs_pi xr«abs_pi x r+abs (i sub (i , j) -i mageavg) 
abs_sdr=abs_sd r+abs (i sub (i , j) -i mageavg) **2 
end if 

if (i roiMAPfi , j) .eq.3.or . 

i roiMAP(i ,3) .eq.4) then 
numl*numl+l 



val_hist«i5ub(i ,i) 
histo_L(val_hist)*his 
abs_pi xl*abs_pi xl +abs 



isto_L(val_hist)+l 

_, xl*abs_pixl+abs(isub(i ,j)-i mageavg) 
abs_sdl=abs_sdl+abs(isub(i ,j)-i mageavg) **2 
end if 

if(iroiMAP(i,j).eq.l) then 
numql-numql+1 

abs_pi xql*abs_pi xql+abs (i sub(i , j ) -i mageavg) 
abs_sdql*abs_sdql+abs (i sub (i , j ) -i mageavg) **2 
end if 

if (iroiMAP(i , j) .eq.2) then 
numq2«numq2+l 

abs_pi xq2-abs_pi xq2+abs (i sub (i , j ) -i mageavg) 
abs_sdq2-abs_sdq2+abs(isub(i , j)-imageavg)**2 
end if 
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if(iroiMAP(i,j).eq.3) then 
numq3*numq3+l 

abs_pi xq3«abs_pi xq3+abs (i sub (i , j ) -i mageavg) 
abs_sdq3=abs_sdq3+abs (i sub (i , j ) -i mageavg) **2 
end if 

i f(i roiMAP(i , j) .eq.4) then 
numq4=numq4+l 

abs_pi xq4=abs_pi xq4+abs (i sub (i , j ) -i mageavg) 
abs_sdq4=abs_sdq4+abs(isub(i ,j)-i mageavg) **2 



end if 
end do 
end do 

abs_pi xa=abs_pi xa/real (numal 
abs_pi xo*abs_pi xo/real (numo) 
abs_pi xi «abs_pi xi /real (numi ) 

abs_pi xr=abs_pi xr/real Cnumr) 
abs_pixl=abs_pixl/real(numl) 

abs_pixql»abs_pixql/real fnumql) 
abs_pi xq2=abs_pi xq2/real (numq2) 
abs_pixq3=abs_pixq3/real(numq3) 
abs_pixq4*abs_pixq4/real (numq4) 

abs_sda«sqrt (abs_sda/real ( numa) ) 
abs_sdo*sqrt (abs_sdo/real (numo) ) 



!Avg. contrast of all image 
!Avg. contrast of outside ribcage 
!Avg. contrast of inside ribcage 

!Avg. contrast of right lung 
!Avg. contrast of left lung 

!Avg. contrast of UR lung 
!Avg. contrast of LR lung 
!Avg. contrast of UL lung 
!Avg. contrast of LL lung 

!SD of histogram for all image 
!SD of histogram for outside 



abs_sdi«sqrt(abs_sdi /real (numi)) !SD of histogram for inside ribcage 



abs_sdr«sqrtfabs_sdr/real fnumr)) 
abs_sdl»sqrt(abs_sdl/real (numi)) 

abs_sdql-sqrt(abs_sdql/real fnumqll 
abs_sdq2*sqrt(abs_sdq2/real Cnumq2] 
abs_sdq3«sqrt(abs_sdq3/real (numq3j 
abs„sdq4-sqrt(abs_sdq4/real (numq4j 



!SD of histogram for right lung 
ISD of histogram for left lung 

)!SD of histogram for UR lung 

)ISD of histogram for LR lung 

)!SD of histogram for UL lung 

)!SD of histogram for LL lung 



wri te (* , 5100) abs_pi xr , abs_pi xl , max (abs_pi xr , abs_pi xl ) 
format (' respix' , 3f9. 3) 
write(*,510l) abs_sdr,abs_sdl 
format ( ' ressd' , 2f9. 3) 



SMOOTHING HISTOGRAMS BY USING RUNING AVERAGE METHOD 



ict-0 

do i«-1024,1023 
ict»ict+l 



hi sto_R_SMf i ct) -hi sto_Rf i ) 
hi sto_L_SM(i ct) *hi sto_L (i ) 



end do 

nn-ict 

ma-11 

do 1=1,2 

call smooth(histo_R_SM,i 
call smooth(histo_L_SM,i 

end do 

ict-0 

do i=6,2044 
ict-i-1024 



1 1 ma) 
i, ma) 



histo_R(ict)*int(histo_R_SMfi)) 
histo_L(ict)*int(histo_L_SM(i)) 
Page 8 



quanti2.f 



end do 

Determine the width of the histogram for right lung 



oram for ri 
************ 

max_hist— 10 
max_x*0 

open (l.file=findi//'_hissub') 
wnte(l,*) "'right' 

do i=-1020,1020 

write (1,*) i,histo_R(i) 



ght lung 
r*********< 



if(histo_R(i)!gt.max_hist) then 
max„hi st=hi : - ~ 



max_x«i 
end if 
end do 



histo_R(i) 



*2********************^**^ 

i hwl-0 

ihw2«0 

wid=0.10 

do i=max_x,1020 

i f (hi sto_R (i ) . 1 1 . i nt (real (maxjii st) *wi d) ) then 
ihwl=i 
goto 12 
end if 
end do 
do i-=max_x,- 1020,-1 

if(histo_R(i) . lt.int(real(maxjrist)*wid)) then 
ihw2=i 
goto 13 
end if 
end do 

i fwhmr=i hwl-i hw2 
write(*,*) ' reswi dth_R' ,max_x,max_hist,ihw2 .ihwl.ifwhmr 

Determine the width of the histogram for left lung 



max_hist— 10 
max_x*=0 
writefl,*) ' ' 
write(l,*) "'left ' 
do i— 1020,1020 

writed,*) i ,histo_L(i) 
if(histo_L(i).gt.max_hist) then 
max_hi st=ni sto_L(i ) 
max_x=i 
end if 
end do 
close(l) 



********************** 
i hwl-1014 
ihw2— 1024 
do i-max_x,1020 

if(histo_L(i),lt.int(real(max_hist)*wid)) then 
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ihwl«i 
goto 14 
end if 
end do 
do i-max_x, -1020,-1 

if(histo_L(i).lt.int(real(max_hist)*wid)) then 
ihw2-i 
goto 15 
end if 
end do 

ifwhml^i hwl-i hw2 
wri te (* , *1 ' reswi dth_L ' , max_x ,max_hi st , i hw2 , i hwl , i fwhml 
write(*,*5 ' reswi dth_small ' .ifwhmr.i fwhml , max (ifwhmr.i fwhml) 

Determination of final results of width of the histogram 
Width of the histogram for right lung - imgcontr 
width of the histogram for left lung - imgcontl 

imgcontr-i fwhmr 
imgcontl«i fwhml 



Remake magnified-contrast subtraction image. 

do j-l,ncol 
do i-l,nlin 

isub(i,j)=i nt(real(isub(i, j)*magnify))+offset 
end do 
end do 



Make a skelton image of ROIs 

do j=l,ncol 
do i*l.nlin 

if(iroiMAP(i ,j) .gt.0) i roiMAP(i , j)-l 
end do 

cal 1 kyoukai (i roi MAP , i roi IL , ncol , nl i n , 1) 



Reset location for the cardiac land-marks 

i yl^ru 1 el-i yl^rul el+ri btop 

i xl^rul e2»i xLrul e2+shi ftmi d+i heartcut 

ix2_rule2=i x2_rul e2+shi ftmid-i heartcut 

iy2_rule2=iy2_rule2+ribtop 
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Subroutine read_images_Bkip 
Read FCR Image and Reduce by RATIO 
Curlmage Current Image reduced by RATIO [0] 
Prelmage previous Image reduced by RATIO [o] 
p_col, p_lin Matrix Size of Curlmage and Prelmage [o] 



curFName Current Image Name 
PreFName Previous Image Name 
Coded by shige 4/16/97 
Modified by shige io/28/9b for dicom 
Modified by Roger 05/24/99 for PC-LINUX 



[I] 
[I] 



ttinclude <stdio.h> 
ttinclude <string.h> 

(♦include <stdlib.h» 
N include "TempSub , H" 



ttifdef KRL_GNU 
LINUX 

(♦define read_images_skip read_images_skip 

ttelse 

ttdefine read_images_skip read_images_skip_ 
ttendif 

Input Image Format getlmageFormat (char* , int*, 



// KRL_GNU iB defined by Makefile if PC- 



void 
void 
void 
int*) ; 
void 
extern 
extern 
extern 
extern 

extern 1 



GetFImage (short 
GetDImage (short* 
GetTImage (short* 

GetNImage (short* 



char 
char 
ThvDicom, 



t, short* , int 
float, short* 



, int*); 
, int*); 
int*, 



int, int, short*, int*, int*); 
studyPara ReadTSubDef File (char* ) ; 
Fcrstand getFcrStandlnfolFILE* , char*) ; 
FcrDicom getFcrDicomlnfo (FILE* , char*) ,- 
ThvDicom getThvDicomlnf o (FILE* , char*) ; 



int read_imagee_skip(short *CurImage, 
int *p_col, 
char *DefFile, 

char *PreFName, 



short *Prelmage, 
int *p_lin, 

char * CurFName) 



{ 

FILE *fp; 

StudyPara studyPara - ReadTSubDef File (DefFile) ; 

ehort *CurOrgImage, * Preorglmage ; 

int mezx, mszy, ratio; // for Original Image 

int PreMszx, PreMszy,- // for Thoravision 

int curMszx, CurMszy; 

float fratio; // for Thoravision 

char CurExamDate [60] , PreExamDate [60] ,- 

char »FcrstdHeader; 

char 'FcrDcmHeader,- 

char * ThvDcmHeader; 

Fcrstand CurFcr, PreFcr,- 

FcrDicom CurDcm, PreDcm,- 

ThvDicom CurThv, PreThv/ 

int msz; 

int mx, my, i; 



// for Thoravision 
// for Thoravision 



check Image Format 



if ( (studyPara. inputlmageFormat !- getlmageFormat ( CurFName , 4mszx, 
4ms zy) | | 

studyPara . inputlmageFormat l- getlmageFormat ( PreFName , 4ms zx, 
4ms zy) ) 44 

(studyPara. inputlmageFormat l- INPUT_NON_HEADER) ) 
printf C\a\aWrong inputlmageFormat in *s\n", DefFile); exit(o); 

if (studyPara. inputlmageFormat «- INPUT_STANDARD_FCR_HEADER) { 
printf ("\a\aINPUT_STANDARD_FCR_HEADER is not permitted\n" ) ,- 
exit (0) ; 
1 

else if (studyPara. inputlmageFormat -=. lNPUT_DICOM_FCR_HEADER) { 

Memory Allocation for Original FCR Images [DICOM FCR] ^ 

FcrDcmHeader = new char [MAX_FCR_DCM_HEADER_SIZE] ; 

if (mszy > FCR_WY) mszy =• FCR_WY; 

if (mszx == FCR_WX / RATIO) ratio - 1; 

else ratio - RATIO,- 

CurOrglmage «= new short [mszx * ms2y) ,- 

Preorglmage - new Bhort [mszx * ms2y] ; 



al FCR Images (Current) [DICOM FCR] 



if ((fp = fopen( CurFName, "r") ) »- NULL) { 

printf <"%s is miesingNn", CurFName); exit(o); 

CurDcm - getFcrDicomlnfo (fp, FcrDcmHeader); 
if (0 !- strcmp(CurDcm.IPSize, DA I KAKU_DCM ) 44 
0 !- strcmp(CurDcm.IPSize, HANSETU_DCM) 44 
0 !- strcmp(CurDcm.lPSize, one_third_dcm) ) { 
printf ( "Wrong IP Size in Current Image\n"); exit(0); 

else if (o == strcmp(CurDcm . IPSize, HANSETU_DCM) ) { 
printf ("IP Size of Current Image is 14 x X7\n") ,- 
if (0 strcmp(CurDcm.Dir, V_FLIP_DCM) || 
0 -m strcmp(CurDcm.Dir, HV_FLIP_DCM) ) 

fseeMfp, sizeof (short) * mszx * SKIP^HANSETU, SEEK^CUR) ; 

if {o 1- strcmp (CurDcm. Dir, H_FLIP_DCM) && 0 1- strcmp (CurDcm. Dir, 
NO_FLIP_DCM) 44 

0 !=• strcmp(CurDcm.Dir, V_FLIP_DCM) 44 0 1- strcmp ( CurDcm . Dir , 
HV_FLIP_DCM) > { 

printf ("Wrong IP Scanning Direction\n" > ; exit(O); 
} 

ttifdef _SUN_SPARC_SOLARIS 1X_ 

fread( (char*) CurOrglmage, sizeof (short! , mszx * mszy, fp) ; 
ttelse 

fread(CurOrgImage, sizeof (short) , mszx * mszy, fp) ,- 
ttendif 
f close (fp) i 

sprintf (CurExamDate, "%s%s", CurDcm. Date, CurDcm. Time) / 



Read Original FCR Images (Previous) [DICOM FCR] 



if ((fp - f open (PreFName, "r") ) NULL) { 

printf("%6 is missing\n", PreFName); exit(O); 
} 

PreDcm =• getFcrDicomlnfo ( fp, FcrDcmHeader); 
if (0 != strcmp(CurDcm. IPSize, DA I KAKUDCM ) 44 

o I- atrcmplCurDcm. IPSize, H ANS ETU_DCM ) &4 

0 i- strcmp (CurDcm. IPSize, ONE_THIRD_DCM) ) { 
printf ( "Wrong IP Size in Current Image\n") f exit(0); 

else if (o strcmp (PreDcm. IPSize, HANSETU_DCM) ) { 
printf ("IP Size of Previous Image is 14 x 17\n"); 
if (0 strcmplPreDcm.Dir, V_FLIP_DCM) || 
0 ... strcmplPreDcm.Dir, HV_FLIP_DCM> } 

fseeMfp, sizeof (short) * mszx * SKIP_HANSETU, SEEK^CUR) ; 

if (0 !« strcmplPreDcm.Dir, H_FLIP DCM) 44 0 !« strcmplPreDcm.Dir, 
NO_FLIP_DCM) 44 

0 !- strcmplPreDcm.Dir, V_FLIP_DCM) 44 0 !- strcmplPreDcm.Dir, 
HV_FLIP_DCM) ) { 

printf ( "Wrong IP Scanning Direction\n" ) ,• exit(0); 
} 

ttifdef _SUN_SPARC_S0LARIS_1X_ 

f read( (char*TPreOrgImage, sizeof (short) , mszx * mszy, fp) ; 
Nelse 

f read (Preorglmage, sizeof (short) , mBZx * mazy, fp) ; 
ttendif 
f close (f p) ; 

sprintf ( PreExamDate, "%8%s" , PreDcm. Date, PreDcm. Time) ,- 

/* 

check Pair of same Patient [DICOM FCR] 

*/ 

if ( l (strcmplCurExamDate, PreExamDate ) > 0 44 

strcmp (CurDcm. PatID, PreDcm . PatID) -= 0)) { 
printf I "Wrong Image Pair ! ! S \n" ) ; 

printf ("\tPatientIDl : %B\tPatientID2 i ts\n», CurDcm. PatID, 
PreDcm . PatID) ; 

printf ("\tCurExamDate : %s\t PreExamDate : %s\n», CurExamDate, 
PreExamDate) ; 
exit(0) ; 
) 

/* 

Reduction, Flip and Inversion for FCR Image [DICOM FCR) 



*p_col » mszx / ratio,- 
*p_lin « ms2y / ratio; 

GetDImage (CurOrglmage, CurDcm. Dir, mszx, mszy, ratio, Curlmage, p_Col , 
p^lin); 

GetDImage (Preorglmage , PreDcm. Dir, mszx, mszy, ratio, Prelmage, p_col, 
p_lin) ; 

printf ( "DICOM FCR : (%d, %d)««>(%d, %d)\n", mszx, mszy, *p_col, 
*p_lin) 

delete FcrDcmHeader; 

else if (studyPara. inputlmageFormat INPUT_DICOM_THV HEADER) { 

/* 

Read Current Image [Thoravision] 

----•/ 

ThvDcmHeader «= new char [MAX_THV_HEADER_SIZE] ; 
if ((fp - fopen I CurFName, "r") ) NULL) { 



printf ("%a is missing\n", CurFName); exit(O); 

CurThv » getThvDicomInfo(fp, ThvDcmHeader), 

sprintf (CurExamDate, "%s*s", CurThv. Date, CurThv. Time ) ; 

CurMszx = CurThv. Col; 

CurMszy « CurThv . Row; 

CurOrglmage = new short [CurMszx « CurMszy] ; 
ttifdef _SUN_SPARC_S0LARIS_1X_ 

f read ( (char* ) CurOrglmage, sizeof (short) , CurMszx * CurMszy, fp) 
ttelse 

fread(CurOrgImage, s i zeof ( short ) , CurMszx * CurMszy, fp) ; 
ttendif 
f close (fp) , 

/* 

Read Previous Image [Thoravision] 



if ((fp - fopen (PreFName, "r") ) NULL) { 

printf("*s is missing\n", PreFName),- exit(o); 

PreThv « getThvDicomlnfoffp, ThvDcmHeader); 

sprintf (PreExamDate, "%s%s", PreThv. Date, PreThv. Time ) ,- 

PreMszx » PreThv. Col; 

PreMszy - PreThv. Row; 

Preorglmage - new short [PreMszx • PreMszy],- 
ttifdef _SUN_SPARC_SOLARIS_lX_ 

fread( (char* ) Preorglmage, sizeof (short) , PreMszx * PreMszy, fp) ; 
ttelse 

fread(PreOrgImage, sizeof (short) , PreMszx * PreMszy, f p) / 
ttendif 
f close (fp) i 

/* — - 

Check Exam Date [Thoravision] 

--- •/ 

if ( t (strcmp ( CurExamDate , PreExamDate ) > o)) { 
printf ( "\a\aWrong Image Pair ! n\n" ) ,- 

printf ( "CurExamDate must be larger than PreExamDate\n" ) ; 
printf I "\tCurExamDate i %s\tPreExamDate : *s\n», CurExamDate, 
PreExamDate) ,- 
exit(0) 
) 

/* 

Determination of Matrix size [Thoravision] 

- - - - */ 

(CurMszx >» PreMszx) ? (mx - CurMszx) : (mx » PreMszx) / 
(CurMszy >- PreMszy) ? (my - CurMszy) : (my - PreMszy) ; 
(mx >- my) 7 (msz = mx) : (msz - my) ; 

for (i =. 0; i < 10; i-+> { 

fratio • FRATIO + (float)i * 0.1,- 
»p„col •= *P_lin - lfloat)msz / fratio; 
if (*p_col <• 600) break; 
} 

printf ( "THV : Reduction Ratio = *f\n", fratio); 

printf ("Current : (%d, %d)==»>(%d, %d)\n", CurM82x, CurMszy, *p_col, 
*p_lin) ; 

printf ("Previous: (%d, %d)««»(%d, Vd)\n», PreMszx, PreMszy, *p_col, 
*p Un) ,- 



Reduction for Original Image [Non-Header] 



Reduction, Flip, Inversion and Padding iThoravision] 

GetTlmage (CurOrglmage , CurThv, CurMszx, CurMezy, f ratio, Curlmage, 
p_col, p_lin) ,• 

GetTlmage (Preorglmage, PreThv, PreMszx, PreMszy, f ratio, Prelmage, 
p_col, p_lin>; 

delete ThvDcmHeader; 

else if (studyPara. input ImageFormat INPUT_NON_HEADER) { 

- 

Determination of Reduction ratio [Non-Header] 

rnezx « study Para. col; 
mazy - studyPara. 1 in; 

(mszx <- mazy) ? (msz * mBzx) 

if (ms2 >- 500 && msz <» 

else if (maz >= 1000 maz <- 

else if (msz >- 1500 tt msz 



else if (maz 
else if (msz 
else { 

printf ( "Wrong Matri 

} 



(msz » mszy) ; 

- 600) ratio - 1; 
• 1200) ratio « 2; 

- 1800) ratio - 3; 
2000 && msz <= 2400) ratio - 4; 
4000 US. maz 4800) ratio - 8; 



size in %s.\n", DefFile) ; exit(0); 



ttif 

»p_col « *p lin - msz / ratio; 
Kelse 

*p_col - mszx / ratio; 
*p„lin = ms2y / ratio,- 
ttendif 

CurOrglmage - new abort [mszx * 
Preorglmage * new short [mszx * 



mazy] 
ms2y] ; 



Read Current Image [Non-Header] 



if ((fp = fopen(CurFName, "r") ) NULL) { 

printf ("*s is misBing\n", CurFName),- exit(0); 
» 

ttifdef _SUN_SPARC_S0LARIS_1X_ 

fread( (char*) CurOrglmage, s i zeof ( short ) , mszx * mszy, fp) ; 
ttelse 

f read (CurOrglmage, sizeof (short) , mszx * mszy, f p) ; 
ttendif 
£ close (f p) ; 



Read Previous Image [Non-Header] 



if ((fp - fopen(PreFName, "r") ) NULL) { 

printf ("%s is missing\n", PreFName) ,• exit(o),- 

ttifdef _SUN SPARC_SOLARIS_lX_ 

fread( (char*) Preorglmage, sizeof (short) , mszx * itiBzy, f p) ; 
ttelse 

fread( Preorglmage, sizeof (short) , mszx * mszy, fp) ; 
ttendif 
fclose (fp) ; 



GetNImage (CurOrglmage, mszx, mszy, ratio, Curlmage, p_col, p_lin) / 

GetNImage (Preorglmage, mazx, mszy, ratio, Prelmage, p_col, p_lin>; 

else { 

printf ("Wrong InputlmageFormat in %s.\n", DefFile); exit(O); 



RETURN 



delete CurOrglmage; 
delete Preorglmage; 
return(l) ; 
) 



subroutine GetFImage 

Reduction, Flip and Inversion for FCR Image 



void GetFImage (short *orgImage, char IP_disp, 
int mszx, int mszy, int ratio, 
short *image, int *p_col, int *p_lin) 



Subroutine GetDImage 

Reduction, Flip and Inversion for FCR image 

void GetDImage (short *0rglmage, char *IP_disp, 
int mszx, int mszy, int ratio, 
short * image, int *p_col, int *p_lin) 

' /* With this file format, pixels should be stored as low-endian. 
Thus, 

if the machine is high endian, we need to byte swap. */ 
int shouldByteSwap - i^isMachineLowEndian; 

int i, j, k, 1, xo, yO, xi, yl; 
short MaxGray; 



Reduction and Horizontal/Vertical Flip 

--- - - ----*/ 

MaxGray = 1023 ; 

if (0 »» strcmp(IP_disp, H_FLIP DCM) ) { 
for (j - 0; j < *p_lin; I 
yO « j * ratio; 

yi - if 

for (i = 0; i < *p_col; i + + ) { 
xO - i * ratio; 
xl - *p_col - i - 1/ 
k = y0 • mazx + x0; 
1 = yl * *p_COl + Xl; 

if (shouldByteSwap) 

image [1] - ( (Orglmage [k] » 8 s, OxOOFF) | (Orglmage [k] << 8)) 
MaxGray; 

else 

image [1] » Orglmage (k) A MaxGray; 



> 

else if (0 =••= strcmp(IP_disp, NO_FLIP_DCM) ) { 
for (j » 0; j < *p_lin; j**) {"~ 

yo - j * ratio; 
for (i = 0; i < *p_col; i**) { 

xo = i * ratio; 

k = y0 * mszx ♦ xO ; 

1 . j » *p_col + i; 

if (shouldByteSwap) 

image [1J - ( (Orglmage [k] >> 8 & OxOOFF) | (Orglmage [k] 
MaxGray; 

else 

imaged] » Orglmage [k) A MaxGray; 



} 

else if (0 strcmp(IP_disp, V FLIP_DCM) ) ( 
for (j - 0; j < *p_lin; j**) { 

yO « j * ratio; 

yl - *p_lin - j - 1, 
for (i - 0; i < *p_col; i++) { 

xo * i * ratio; 



xl 



i; 



k = yO * mszx + xO ; 
1 - yl • *p_col + xl; 
if (BhouldByteSwap) 

image [1] « ( (Orglmage [k] >> 8 & OxOOFF) | (Orglmage (k) << 8)) 
MaxGray; 

else 

image [1] - Orglmage [k] " MaxGray; 



else if (o =- strcmp (IP^disp, HV_FLIP_DCM) ) { 
for (j - 0; j < *p_lin; j++) ( 

yO - j * ratio? 

yl - *p_lin - j - l; 
for (i - 0; i < *p_COl; i++) ( 

xO ■ i * ratio; 

xl * *p_col - i - 1; 

k " yo * mszx + xO; 

1 » yl • *p_col ♦ xl; 

if (shouldByteSwap) 

image [1] = ( (Orglmage [k] >> 8 U OxOOFF) | (Orglmage [k] << 8)) 
MaxGray; 

else 

imaged] = Orglmage [k] A MaxGray; 



else { 

printf ("Wrong IP Scanning Direction\n" ) ; exit(o); 



Subroutine GetTlmage 

Reduction, Flip, Inversion and Padding for Thoravision 



void GetTlmage (short *0rglmage, ThvDicom thv, 
int mszx, int mszy, float ratio, 
short *image, int *p_col, int *p_lin) 

' /* With this file format, pixels should be stored aa low-endian. 
Thus, 

if the machine is high endian, we need to byte swap. */ 
int shouldByteSwap = !_isMachineLowEndian ; 

short MaxGray = 1023; 
short val; 

int Shift = thv.NBit - 10; 
short *buf; 
int mx, my; 

int i, j, ix, iy, jx, jy, k, 1, u, v ; 

int sx, sy; 

/* - " - - 



mx - (float)mszx / ratio; 
my - (float)mszy / ratio; 
buf • new short [mx * my]; 



Reduce Image 



if (0 strcmplthv.Dir, AP THV) ) { 
for (j - 0; j < my; J 
iy - (float) j * ratio + 0.5; 
jy - j; 
for (i - 0; i < mx; i++> { 
ix = (float)i * ratio ♦ o.S; 
jx - mx - i - i; 
u - jy * mx + jx; 
v ■ iy * thv. Col + ix; 
if (shouldByteSwap) 

val - (Orglmage [v] » 8 & OxOOFF) | (Orglmage [v] << 8 
OxFFOO) ; 
else 

val - Orglmage [v] ; 
buf [u] - (val >> Shift) * MaxGray; 
} 
} 

else { 

for (j = 0/ j < my; j++) { 

iy * (float) j * ratio + 0.5; 
for (i • Dj i < mx,- i + +> { 
ix - {float) i * ratio ♦ 0.5; 
u « j * mx * I, 
v » iy * thv. Col + ix; 
if ( a hou 1 dBy t e swap ) 

val - (Orglmage [v] » 8 & OxOOFF) | (Orglmage [v] << 8 & 
OxFFOO ) ; 

else 

val = orglmage [v] ; 
buftu] - (val » Shift) A MaxGray; 



Copy 



sx - (*p_col - mx) / 2 
for (j - 0; j < my; j + 
for (i - 0/ i < mx; i+ 
u * j * *p_col + 8X 
v « j * mx + i; 

image {uj » buf |v] ; 



Padding 



for (j - 0; j < my,- j + { 
for <i - 0; i < SX; { 
V - j * »p_COl t BX; 

u - j » *p_col + i; 
image [u] = image tv] ; 

for (i - BX ♦ mx; i < *p_col; i+ + ) { 
v » j * *p_col + sx + mx - 1; 
u - j * *p_col + i/ 
image [u] -""image [v] ; 

for (i - 0; i < »p_col; i + + ) { 
for (j - my; j < *p_lin; j++) { 
v - (my - 1) ■ *p_col + i; 
u . j * *p_col + i; 
image [u] - image [v] ; 



} 

delete buf; 



Subroutine OetNImage 
Reduction for Non-Header Image 



void GetNImage (short *orgImage, int mszx, int mszy, int ratio, 
short 'image, int *p_col, int *p_lin) 

/* With this file format, pixels should be stored as high-endian, 
Thus, 

if the machine is low endian, we need to byte swap. */ 
int shouldByteSwap « _isMachineLowEndian ; 



int i, j, k, 1, 



V, 



for (j » 0; j < *p_lin; j + + ) { 

y = j * ratio; 
for (i - 0; i < *p_col; i++) { 

x ■ i * ratio; 

k - y * mszx + x; 

1 - j * *p_col ♦ i; 

if (shouldByteSwap) 



imaged] - ( (Orglmage [k] >> 8 & OxOOFF) | (Orglmage [k] << 8)); 
else 

imaged] - Orglmage [k] ; 



READ_ORIGINAL_IMAGES_SKIP . f 



function Read_Original_images_skip( imagel, image2, 

1 ncol, nlin, mcol, mlin, 

2 DefFile, 

3 prelmage, Curlmage) 



Ver. 1.0 

written by Akiko Kano, Mar. 24, 1993 



This function reads two image files. 

(1) Imagel should correspond to current image, and Image2 should 
correspond to previous image. 

(2) image matrix size is unified to the larger size between the two. 
smaller image is compensated by filling the right and bottom part 
with "0". 



ARGUMENTS 



implicit none 

integerM Read_Original_lmages_Skip 

integer*2 imagel(*) ! Current image Data [0. 

integer*2 image2(*) ! Previous image Data [0. 

integerM ncol, nlin ! Unified Matrix Size of image Data [0. 

integerM mcol, mlin ! Maximum Permitted Matrix Size [1. 



VARIABLES 



integerM id 

common /LOGFILE/ id 



FUNCTIONS 



i ntegerM read_i mages_ski p 
! external read_images_skip !$pragma C(read_images_skip) 
i 

! Shige 

i 

character Def Fi 1 e* (*) 

character Prelmage*(*) , Curlmage*(*) 



1. GET FILENAME OF CURRENT IMAGE - I MAG El 



Read_Original_lmages_Skip =0 

Read_Original_jmages_Skip = read_images_skip(imagel, image2, ncol, nlin, 

1 DefFile, 

2 Prelmage , Curlmage) 



! 15. CREATE LOG FILE 

I 

open (id, name = 'temp. log 1 , err = 300) 
j 

! END 

I 

return 

300 write(*,*) '!!! Log file not created. !!!' 
return 
end 
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Subroutine read_table_ 

Determination of Filename of Nonlinear Density Correction LUT 
Coded by Shige 



#ifdef KRL_GNU 

#define read_table read_table 

#else 

#define read_table read_table__ 
#endif 

extern n C" void read_table (char *dcTableName , short *buf, short &ngray) 



FILE *fp; 
short dmy; 
short i ; 

if ((fp = fopen(dcTableName / "r") ) =- NULL) { 

printf ("\7\7%s can't be opened\n M , dcTableName) ; exit(O); 

for (i = 0; i < ngray; i++) fscanfffp, "%hd %hd" , fcdmy, buf + i) ; 
f close (fp) ; 



= = = */ 



#include 
#include 
#include 
#include 



<stdio.h> 

<string.h> 



<stdlib.h> 
<time .h> 



File Name : ReverseValue . C 

Purpose : flip the pixel value of an image 



Date : 7/23/98 

Author : Li Qiang, University of Chicago 



* */ 

#include <iostream. h> 
#include <f stream. h> 
#include " image . h" 
//ttinclude "xwin.h" 
displaying 

/* 

/* the underbar _ following function name is 
/* appended for Fortran 

/* 

ttifdef KRL_GNU 

#define reverse_value reverse_value 

#else 

#define reverse_value reverse_value_ 
#endif 

extern "C" void reverse_value (short int *imgarr, 

int& col, 
int& row) 



// C++ I/O standard stream definition 
// file stream definition 
// definition of class IMAGE 

// definition of functions for image 



■*/ 
*/ 
*/ 
*/ 



{ 



int i ; 

for (i=0 ; i<row*col ; i++) 

imgarr[i] = GRAYLEVELRANGE - imgarr[i] - 1; 



RIBCAGEP0INT3.f 
**************************************************** 

Purpose: To obtain ribcage points of chest image 
Contains error solution for toplung 

Limit: This program is for chest images of any matrix size 

Name: ri bcagePoi nt3. for 

History: version 7 

Required subroutine: chest_pack . for 

Oata: Sept. 28, 1992 

xin-wei xu 

Modified by A.Kano Oct. 8 ,1992 
Modified by A.Kano Mar. 17,1993 



subrouti ne ri bcagePoi nt3(lmage , nxw, nyh , f eatu re , 

& con_No , TopPoi nt ,Top_No , 

& RsidePoint.RcountSide, 

& LsidePoint.LcountSide) 

implicit integer*2 (i-n) 

integer*2 nxw, nyh, 
& Image (nxw, nyh) , 

& feature(SO), 
& con_No, 
& TopPoint(2,100), 



Top_No , 



! image buffer size 
! input chest image 
I **** as described bellow 
! input; no. of connect for fitting 
! op; top edge points (include con_.No 
! edge points from each side) 
I OP; real top edge points number 



RsidePoint(2,100),RcountSide, ! OP (output) 
Lsidepoint(2,100),LcountSide ! OP (output) 



****************** 



^****************** ************************************* 



integer*4 lungTop, 
imageTop 



integer*2 imageTop2 
subroutine 



! top position of lung 

! position of unexposed area in top 

! of chest images; -1 if no such area 

! For compatibility with topRibcage 



integer*2 RribcagePoi nt(2 , 100) 



, ! array of ribcage points of right 
! lung;(l,i) is x;(2,i) is y; 
! order from midline to ribcage 
! array of ribcage point of left 
! lung; 



l_ribcagePoint(2,100), 
R_No,L_No, 

RcountTop.LcountTop I No. of top ribcage points in R & L Lung 



! actual ribcage point number of both 
I right and left lung 



real*4 prof (1215) , prof _smo(121S) , ! profile of image & its smoothed one 
fd(1215), ! first derivative of the profile 

sd(1215), ! second derivative of the profile 

Rthreshold , Lthreshold , per, 
cf(21) 
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integer*2 locationFD(1215) , 

& locationso(1215), 

& f d_No , sd_No , 

& position, 

& hwidth, 



RIBCAGEP0INT3 . f 

! position of fd 

! position of sd 

! number of fd and sd 

! central position of profile 

! half width of profile 



& tempPoi ntX(lOO) , tempPoi ntY(lOO) 

integer*2 xcoord_hori (1000) ,ycoord_hori (1000) , 
& xcoord_vert(121S) ,ycoord_vert(1215) 

integer*2 RtopEdgei n_x , RtopEdgeout_x , ! right top ribcage range 

& RtopEdgeStart_x,RtopEdgeStart_y, I right top rib start point 

& LtopEdgein_x,LtopEdgeout_x, ! left top ribcage range 

& LtopEdgeStart_x,LtopEdgestart_y, ! left top rib start point 

& sideEdgeStartY,RsideEdgeStartX,LsideEdgeStartX, ! side start 

& edgeUP.edgeLOW, T side ribcage search range 

& hsearchx.hsearchY, ! search range in x and y direction 

& count , si ze , 

& Rout_x,Lout_x, 

& RM,LM,PX,PY,PXC,PYC 

integerM midline.kwk 
realM 



f tempPoi ntx(100) , ftempPoi ntY(lOO) 



********************************* 



explanation of feature(SO) 
(1) : lungTop 



nxw, nyh, 



top of lung 

lungBottom I bottom of Tung (right diaphragm) 
(3$: vertical position of 1/5 or lung length 

(4) : vertical position of center of image 

(5) : vertical position of center of lung length 

(6) : midline position at 1/S of lung level 

(7) : midline position at vertical center level 

(8) : midline position at center of lung level 

(9) : minimum position of right lung at 1/5 lung level (URM) 

(10) : minimum position of left lung at 1/5 lung level (ULM) 

(11) :minimum position of right lung at center lung level (LRM) 

(12) :minimum position of left lung at center lung level (llm) 

(13) : bottom position of side ribcage fitting- 

lungBottom+35%* (lungBottom- lungTop) 

(14) : Right Diaphragm egde tracing X start, will be obtained from 

ribcagefit.for 

(15) :Right Diaphragm edge tracing X end, ontained from 

ri bcagepoi nt_lk . for 

(16) : Left Diaphragm egde tracing x start, obtained from 

ri bcagepoi nt_lk . for 

(17) : Left Diaphragm edge tracing X end, will be ontained from 

ribcagefit.for 

************************************************************** 
! buffer size 



c *** &&& part: initialization i 

do k-1,1215 
prof(k)-0.0 
prof_smo(k)=0.0 
fd(k)-0.0 
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RIBCAGEPOINT3 . f 

sd(k)-0.0 
end do 

do k-1,100 

Rri bcagePoi ntCl.kl-O 

Rri bcagePoi nt( 2 ,k)-0 

Lri bcagePoi nt CI, kj-0 

Lri bcagePoi nt (2 ,k)=0 
end do 

do k-1,50 

feature(k)-0 
end do 

c *** &&& end of this part &&& *** 

c *** &&& part: finding top of lung &&& *** 

cal 1 top_lung_sub (image , nxw, nyh , 1 ungTop , i mageTop , Indexl) 
if ( indexl. eq.O ) then 

imageTop - 1 

lungTop - imageTop + 1 
end if 

featu re(l) -lungTop 
c write(*,*) 'featurel - ', lungTop 

c *** &&& end of this part &&& *** 

c *** &&& part: finding right diaphragm point, as primary lung bottom &&& *** 

c**** find a hori. prof, at vert, center of image with 1/8 of image length **** 

position-int(float(nyh)/2.0+0.5) ! vert, position of center image 
hwidth-int((float(nyh)/8.0)/2,0+0.S) I half width of profile 
i ndl-1 
ind2-l 

cal 1 prof i 1 e_i nusub (image , prof , nxw, nyh , i ndl , nxw , 

position-hwidth,position+hwidth,ind2) ! original profile 

! smoothed one 



i nc_smo=nxw/20+l 

call prof_smo_sub(prof ,nxw,nxw,inc_smo, prof_smo) 
inc_fd-nxw/20 

call fd_south_sub(prof_smo, locationFD,fd,nxw,i 
index«0 

call find_midline_RM_LM(prof_smo,nxw, fd, locationFD, fd_No, 
mi dl i ne , RM , LM , i ndex , i ndex , i ndex) 

featu re(4)«=posi ti on 
feature(7)-midline 



,inc_fd,fd_No) ! fd 



c «**** fi n d a vert , profile at RM with 1/12 of im 



, W i dt h ***** 



hwidth-int((float(nxw)/12.0)/2.0) 
i ndl«l 
ind2-2 

call prof ile_im_sub(lmage, prof , nxw.nyh.RM-hwidth, 
& RM+hwidth,indl,nyh,ind2) ! original vert. prof. 



inc_smo-nyh/20+l 
* irof' 



cal 1 prof_smo_sub(prof , nyh , nyh , i nc.smo , prof_smo) 



! smoothed one 



i nc_f d-nyh/20 



RIBCAGE POINT 3 . f 

call fd_south_sub(prof_smo 1 locationFD,fd,nyh,nyh ( inc_fd,fd_No) ! fd 

c ***** define right diaphragh at Max. fd value in lower half image *** 

do k-l.fd_No 

if (1ocationFD(k).ge.feature(4)) then 
k_begin=k 
go to 10 
end if 
end do 
10 conti nue 

max_FD«l ocati onFD(k_begi n) 
f d_max-f d (k_begi n) 



fd_max) then 



do i-k_begin+l l fd_No 
if (fd(i).gt.f' 
fd_max-fd(i) 
max_FD-l ocati onFD(i ) 
end if 
end do 

lungBottom*max_FD 
featu re(2)«lungBottom 

c *** &&& end of this part &&& *** 

c *** p ar t: determine two vertical positions in the lung range &&& *** 
section-float(lungBottom-lungTop)/5.0 

levell>=lungTop+int(section) !posi. at 1/5 of lung length 

leve!2«lungTop+int(2.5*section) Iposi. at center of lung length 
feature(3)-levell 
feature(5)-level2 

c *** &&& end of this part &&& *** 

c *** SA& part: find top ribcage point search range &&& *** 

c *** for right lung: RtopEdgeout_x— RtopEdgei n_x 

c for left lung: LtopEdgeout_x--LtopEdgei n_x *** 

c *** obtain a hori. prof, at 1/5 lung posi . with width of 1/8 lung length 1 

hwidth=int((float(lungBottom-lungTop)/8.0)/2.0) 
i ndl-1 
ind2-l 

call prof i 1 e_i m_sub (image , prof , nxw , nyh , i ndl , nxw, 
& levell-hwidth,levell+hwidth,ind2) ! 

i nc_smo=nxw/20+l 

cal 1 prof _smo_sub (prof , nxw, nxw, i nc_smo , prof_smo) 

calT f f d"sou th_sub (p rof_smo , locationFD, fd, nxw , nxw , i nc_f d , f d_No) ! f d 

index-1 
incr=nxw*3/20 

call f i nd_mi dl i ne_RM_LM(prof_smo , nxw , fd , 1 ocati onFD, fd No , 
& mi dl i ne , RM, LM , i ndex , featu re(7) ,mcr) 

feature(6)-midline 

feature(9)=RM 

feature(10)=LM 



original prof. 
! smoothed one 
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RIBCAGEP0INT3 . f 

c *** first find inside range close to of midline, this range is defined 

c from RM or LM to midway of midline and RM or LM *** 

RtopEdgein_x-RM+i nt (float (mi dl i ne-RM)/2 .0) 
LtopEdgein_x=midline+i nt(float(LM-midli ne)/2 .0) 

c *** then find outside range between RM or LM and ribcage *** 

prof_max-prof_smo(feature(6)) 

prof_RM»prof_smo(featuref9)) 
prof_LM-prof_smo(feature(lO)) 

if (prof_RM.ge.prof_LM) then 
prof_mi n=prof_RM 
else 

prof_mi n-prof_LM 
end if 

Di f =prof_max-proOni n 
Dif2-Dif/2.0 

Rthreshold-prof_RM+Di f2 
Lthreshold=prof_LM+Di f2 

do i-RM,l,-l 

if ((prof_smo(i) . le . Rthreshold) .and. 
& (prof_smo(i-l) .ge. Rthreshold)) then 

RtopEdgeout_x=i-l 
go to 20 
end if 
end do 
20 continue 

do i»LM,nxw 

if ((prof_smo(i) . le . Lthreshold) .and. 
& (prof_smo(i+l) . ge . Lthreshold)) then 

LtopEdqeout_x*i+l 
go to 30 
end if 
end do 
30 conti nue 

c *** &&& end of this part &&& *** 

c *** &&& part: obtain RM and LM at level 2 with 1/8 of lung length SA& *** 

i ndl=l 
ind2=l 

call prof i le_im_sub (Image, prof , nxw, nyh, i ndl. nxw, 
& Ievel2-hwidth,level2+hwidth,ind2) ! original profile 

i nc_smo«nxw/20+l 

call prof _smo_sub (prof ,nxw,nxw,inc_smo,prof_smo) 



! smoothed one 



inc_fd=nxw/20 

call fd_5outh_sub(prof_smo , locati onFD, fd , nxw, nxw, i nc_f d , f d_No ) 

i ndex-1 
incr-nxw*3/20 
call find_midli 



r _ , nxw , fd , locati onFD, f d_No , 
mi dl i ne , RM, LM , i ndex , f eatu re(7) , i ncr) 



feature (8)=midline 
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feature(ll)-RM 
feature(12)-LM 



RIBCAGEPOINT3 . f 



c *** &&& end of this part &&& *** 

c *** &&& part: change RM and LR of two levels by adjusting lung angles &&& * 

c *** first conside the right lung angle *** 

gy«float(feature(5)-feature(3)) 
gx-float(feature(H)-feature(9)) 
! angleR=atan2d(gy,gx) 

ang1eR=atan2(gy,gx) ! for Linux 
angl eR-180 . 0-ang T eR 

if ((angleR.lt.72.7).or.(angleR.gt.79.5)) then 

slopl--4.041 ! set right lung angle to be 76.1 deg. 
ixCenter-i nt(float(featuref9)+featurefll))/2 .0) 
iycenter-i nt(float(feature(3)+feature(5))/2 .0) 

feature (ll)»ixCenter+int(float(feature (5) -iyCenter)/slopl) 
feature(9)=feature(ll)- 
& int(float(feature(5)-feature(3))/slopl) 
end if 

c *** now conside left lung angles *** 

gy-fl oat (feature(5) -f eatu re(3)) 
gx=f 1 oat (feature (12) -f eatu re (10) ) 
! angleL«atan2d(gy,gx) 

angleL=atan2(gy,gx) I for Linux 
angleL«180.0-angleL 

if ((angleL.lt. 100. 7). or. (angleL.gt. 107.1)) then 

slopl=4.041 I set left lung angle to be 103.9 deg. 

ixcenter«int(float(feature(10)+feature(12))/2.0) 

iyCenter«int(float(feature(3)+feature(5))/2.0) 

feature(12)-i xcenter+i nt(float(feature(5)-iyCenter)/slopl) 
feature(10)«feature(12)- 
& int(float(feature(5)-feature(3))/slopl) 
end if 

c *** sA& end of this part &&& *** 

c *** part: make straight lines upper and lower RMS or LMs,and define &&& « 
c top ribcage start points as cross points of straight lines with 
c the horizantal line through the top of lung 



xcoord_hori(i}=i 
ycoordjiori (i)«feature(l) 
end do 

c *** first conside right lung *** 

call" straight_line_sub(feature(9),feature(3), 
& feature (11) . feature (5) , xcoord.vert , ycoord_vert , nyh , i ndl) 



i ndl-1 
ind2-2 
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call cross_p_2_line_sub(xcoord_hori ,ycoord_hori , nxw, i ndl, 
& xcoord_vert,ycoord_vert,nyh, ind2 ,PX,py) 

RtopEdgestart_x=PX 
RtopEdgeStart_y-PY 

'* now conside left lung *** 

i ndl-2 

cal 1 st rai ght_l i ne_sub (feature (10) , feature (3) , 
& featu re (12) .feature (S) ,xcoord_vert, ycoord_vert, nyh, i ndl) 



i ndl-1 
ind2*2 



xcoord_vert,ycoord_vert,nyh 



LtopEdgeStart_x=PX 
LtopEdgeStart_y=PY 



>ri ,yc 
ind2, 



px , PY) 



c *** &&& end of this part &&& *** 

c *** &SA part: set top lung position as first point of ribcage points i 

RribcagePoint(l,l)-feature(6) 
Rri bcagePoi nt (2, l)=f eatu re (1) 

Lri bcagePoi nt (1,1) -feature (6) 
L ri bcagePoi nt (2 , l)*f eatu re (l) 

c *** &&& end of this part &SA *** 

c *** &&& part: trace top ribcage points &&&& *** 

c ** first conside right lung top ribcage *** 

c *** trace right top ribcage inside part *** 

count-1 

PX-RtopEdgeStart_x 
Py-RtopEdgeStart_y 
hsearchx-nxw/100 
hsearchY-nyh/2S 

100 continue 

i ndl-1 
ind2-l 
ind3-l 

imageTop2 - imageTop 

cal I topRi bcage (Image, nxw, nyh, i mageTop2 ,PX,PY, 
& pxc , PYc , hsearchx, hsearchY , i ndl , i nd2 , i nd3) 

imageTop - imageTop 2 



count-count+1 

Rri bcagePoi nt (1 , count)-PXc 
Rri bcagePoi nt (2 .count) -PYc 

PX-PXc+nxw/33 

PY-PYC 

if (hsearchY. ne.nyh/33) hsearchY-nyh/33 
if (PX.le.RtopEdgein_x) go to 100 
feature(15)«PXc 
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c *** trace right top ribcage outside part *** 

PX-Rri bcagePoi nt(l, 2)-nxw/33 

PY=Rri bcagePoi nt(2 , 2) 

if (PX.lt.RtopEdgeout_x) go to 300 

200 continue 

i ndl-1 
ind2-2 

re1_dis«float(PX-RtopEdgeout_x)/30. 
if (rel_dis.le.2.0) then 

ind3=2 
el se 

ind3«l 
end if 

imageTop2 * imageTop 

cal 1 topRi bcage (image , nxw , nyh , imageTop2 , PX , PY , 
& pxc , PYc , hsearchx , hsearchY, i ndl , i nd2 , i nd3) 

imageTop - imageTop2 

count-count+1 

Rri bcagePoi nt (1 , count)«PXc 

Rri bcagePoi nt (2 , count)-PYc 

px=PXc-nxw/33 
PY-PYc 

if (PX.ge.RtopEdgeout_x) go to 200 

300 continue 

RcountTop-count 

c *** Now conside left lung *** 

c *** trace left top ribcage inside part *** 

count-1 

PX=LtopEdgestart_x 
PY-LtopEdgeStart_y 
hsearchX*nxw/100 
hsearchY=nyh/25 

400 continue 

i ndl=2 
ind2=l 
ind3=l 

imageTop2 « imageTop 

call topRi bcage (Image, nxw, nyh, imageTop2,PX,PY, 
& pxc , PYc , hsearchx , hsearchY , i ndl , i nd2 , i nd3) 

imageTop - imageTop2 

count=count+l 

Lri bcagePoi nt(l, count) -pxc 
Lri bcage Point(2, count) -PYc 

PX-PXc-nxw/33 

PY=PYC 

if (hsearchY. ne.nyh/33) hsearchY=nyh/33 
if (px.ge.LtopEdgein_x) go to 400 
feature(16)=PXc 
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c *** trace left top ribcage outside part *** 

PX«Lri bcagePoi ntfl,2)+nxw/33 

PY-LribcagePoi nt(2 ,2; 

if (PX.gt.LtopEdgeout_x) go to 600 

500 continue 

indl-2 
ind2=2 

re1_dis«floatCLtopEdgeout„x-PX)/30. 
if (rel_dis.le.2.0) then 

ind3-2 
else 

ind3-l 
end if 

imageTop2 « imageTop 

cal 1 topRi bcage(lmage , nxw , nyh , i mageTop2 , PX , PY , 
& PXc , PYc , hsearchx, hsearchY , i ndl, i nd2 , i nd3) 

imageTop - imageTop2 



count=count+l 

LribcagePointf: 

LribcagePointC 



tt)-PXC 
it) -PYC 



PX-PXc+nxw/33 
PY-PYC 

if (px.le.LtopEdgeout_x) go to 500 

600 conti nue 

LcountTop-count 

c *** &&& end of this part &&& *** 



' &&& part: trace right and left side ribcage &&& *** 

r & subpart: find side ribcage trance range and start points & *** 

LL=feature(2)-feature(l) !! lung length in pixels 
if (LL.ge.int(float(nyh)/1.9)) then 

per»0.16 
else 

per=0.07 
end if 

feature(13)«feature(2)+i nt(per*float(LL)) 
feature(13)-min( feature(13) , (nyh-1) ) 

sideEdgestartY-feature(S) I vertical position of center ribcage edge 

Rout_x=.Rri bcagePoi ntfl, RcountTop) 

Lout_x=Lri bcagePoi nt(l, LcountTop) 

! Rout_x: x position of search start of right nbcage 
! Lout_x: x position of serach start of left nbcage 

i nc_f d-nxw/40 

inc_sd=nxw/20 , , 

cal 1 f i nd_si deRi bcageStartx(prof_smo , nxw, i nc_f d , i nc_sd , 
4 Rout_x , Lout_x , Rsi deEdgestartX , Lsi deEdgeStartx) 



c *** & end of this sub part& *** 
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c *** trace right side ribcage *** 

imageUP-1 
imageLOW*nyh 

c *** trace up direction *** 

count-RcountTop 

PX-RsideEdgestartx 

PY«sideEdgeStartY 

hsearchx-nxw/25 
hsearchY=nyh/67 

1100 continue 

edgeUP-max( feature{3) , (1+hsearchY) ) 

i ndl-1 
ind2=0 

call sideRibcage(image,nxw,nyh,PX,PY,PXc ( PYc, , 
& imageUP,imageLOW, hsearchx, hsearchY, i ndl, md2) 

if (ind2.eq.l) goto 1150 
count-count+1 

Rri bcagePoi nt CI , countl-PXc 
Rri bcagePoi nt (2 , count)-PYc 

PY-PYc-nyh/33 
PX=PXc 

if (hsearchx. ne.nxw/33) hsearchX=nxw/33 
if (PY.ge.edgeUP) go to 1100 



c *** trace down direction *** 

1150 PX-Rri bcagePoi ntCl,RcountTop+l) 

PY-Rri bcagePoi nt(2 , RcountTop+l)+nyh/33 



! in down direction require larger search box 



hsearchx-nxw/25 
conti nue 

edgeLOW«=min( featu re (13)+3*nyh/33 , (nyh-hsearchY) ) 

i ndl-1 
i nd2-0 

call sideRibcageClmage,nxw,nyh,PX,PY,PXc,PYc, 

imageUP.imageLOW, hsearchx, hsearchY, indl,ind2) 

if (ind2.eq.l) goto 1250 
count-count+1 

Rri bcagePoi nt (1 , count)-PXc 
Rri bcagePoi nt (2, count)-PYc 

PY-PYc+nyh/33 
PX-PXC 

if (PY.le.edgeLOW) go to 1200 
R_No*count 

Rcountside-R_No-RcountTop 
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c *** trace left side ribcage *** 

c *** trace up direction *** 

count-LcountTop 

PX-LsideEdgeStartx 

PY-sideEdgeStartY 

hsearchX=nxw/25 
hsearchY-nyh/67 

1300 continue 

edgeUP=max( feature(3) , (1+hsearchY) ) 

indl-2 
ind2-0 

call sideRibcage(lmage,nxw,nyh,PX,PY,PXC,PYc, 
& imageUP, imageLOW, hsearchx, hsearchY, i ndl, ind2) 

if (ind2.eq.l) goto 1350 

count-count+1 

L ri bcagePoi nt CI , count) -PXc 

LribcagePoint(2 ,count)=PYc 

PY=PYc-nyh/33 

PX-PXC 

if (hsearchx. ne.nxw/33) hsearchX-nxw/33 
if (PY.ge.edgeUP) go to 1300 

c *** trace down direction *** 

1350 PX-Lri bcagePoi nt (1 , LcountTop+1) 

PY=Lri bcagePoi nt(2 , LcountTop+l)+nyh/33 



! in down direction require larger search box 



hsearchx-nxw/25 
conti nue 

edgeLOW-minC feature(13)+3*nyh/33 , (nyh-hsearchY) ) 

indl-2 
ind2-0 

cal 1 si deRi bcage(lmage , nxw, nyh , PX, PY , PXc , PYc , 

imageUP.imageLOW, hsearchx, hsearchY, i ndl, ind2) 

if (ind2.eq.l) goto 1450 
count-count+1 

Lri bcagePoi ntfl,count)-PXc 
Lri bcagePoi nt(2 , count)-PYc 

PY-PYc+nyh/33 

PX-PXC 

if (PY.le.edgeLOW) go to 1400 



&&& part: re-arrange the ribcage points &&& i 

size=100 
right lung ribcage first *** 



RIBCAGEPOINT3 . f 

do 1-1, RcountTop 

tempPoi ntx(i ) -Rri bcagePoi nt(l , i ) 

tempPoi ntY(i ) -Rri bcagePoi nt(2 , i ) 
end do x 
cal 1 rear range_L_S (tempPoi ntx , tempPoi ntY , si ze , RcountTop) 
do i=l, RcountTop 

Rri bcagePoi nt(l.i) -tempPoi ntxfi) 

Rri bcagePoi nt(2 , i ) -tempPoi ntY(i ) 
end do 

do i=l,Rcountside 
j=RcountTop+i 

tempPoi ntx(i)=RribcagePoint(l,j) 

tempPoi ntY(i ) =Rri bcagePoi nt(2 , 3 ) 
end do , , _ 

cal 1 rearrange_s_L (tempPoi ntY, tempPoi ntx , si ze , Rcountsi de) 
do i-l,RcountSide 

j-RcountTop+i 

Rri bcagePoi nt(l, i)-tempPoi ntxfi 

Rri bcagePoi nt (2,])- ^ 

end do 



-tempPoi ntY(i) 



c *** then left lung ribcage *** 

do i-1, LcountTop 

tempPoi ntxfi )«Lri bcagePoi ntfl, i) 

tempPoi ntY(i;-Lri bcagePoi nt(2 , i) 
end do 

cal 1 rearrange_S_L (tempPoi ntx , tempPoi ntY , si ze , LcountTop) 
do 1=1, LcountTop 

LribcagePointfl,i)-tempPointxfi) 

Lri bcagePoi nt (2 , i )=tempPoi ntY(i ) 
end do 

do i=l,LcountSide 
j-LcountTop+i 

tempPoi ntxfi) -Lri bcagePoi nt(l, j) 

tempPoi ntY(i)-LribcagePoint (2, j) 
end do . , ^ 

cal 1 rearrange_S_L(tempPoi ntY , tempPoi ntx .size, LcountSide) 
do i-l.Lcountside 

j-LcountTop+i 

LribcagePointfl,i)-tempPoi ntxfi) 
Lri bcagePoi nt (2,]) -tempPoi ntY(i) 
end do 

c *** SSJ end of this part $$J *** 

c *** 444 part: broken right and left edge points into three 
c part: TopPoi nt , RsidePoi nt and LsidePoint for 

c rib edge fitting &&& *** 

c *** right side *** 

index-0 

iyl-feature(3) 

iy2-iyl+30 

ideg=4 

kcount*l 

kwk-0 



do i«kcount,RcountSide 
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i-i+RcountTop 

ftempPoi ntx(i ) -f 1 oat (Rri bcagePoi nt (1 , j ) ) 
ftempPoi ntY(i ) -float(Rri bcagePoi nt(2,j)) 
end do 

kk-RcountSi de-kcount-t-1 
idegl - ideg + 1 

wri te(* , *) ' CALLED BY RIBCAGEPOINT3. f (1)' 

cal 1 kof i tc (ftemppoi ntY , ftempPoi ntx , kk , i degl , cf , i deg , kwk) 
cal 1 pol yf i tc_i nteger (iyl , cf , i deg , i xl) 
cal 1 polyf i tc_i nteger(iy2 , cf ,ideg , i x2) 
if (ix2.gt.ixl) then 

i ndex-i ndex+1 
end if 



RIBCAGEPOINT3 . f 



c *** left side 



do i=kcount, Lcountside 
i-i+LcountTop 

ftempPoi ntxfi )=f 1 oat (Lri bcagePoi ntfl.i)) 
ftempPoi ntY(i )-float(Lri bcagePoi nt(2 ,j) ) 
end do 

kk=LcountSide-kcount+l 

wri te(*,*) 'CALLED BY RIBCAGEPOINT3 . f (2)' 
cal 1 kof i tc (ftempPoi ntY , ftempPoi ntx , kk , i degl, cf , i deg , kwk) 



cal 1 polyf i tc_i ntegerfiyl.cf ,ideg , i xl) 
cal 1 polyf i tc_i nteger(iy2 , cf , ideg , i x2) 
if (ix2.lt.ixl) then 



(ix2.lt.ixl) 
index-index+1 
end if 

if (index. eq.O) then 

kcount-1 
else 

kcount-3 
end if 

kkR»RcountSide-kcount+l 
kkL-Lcountside-kcount+1 
if (kkR.le.kkL) then 

kkk-kkR 
else 

kkk-kkL 
end if 

if (index. eq.O) then 

n«con_No ! number of ribcage edges included in TopPoint 
else 

n=con_No+5 ! number of ribcage edges included in TopPoint 

v" 
end 



if £n.gt.kkk) n-kkk 



do i-kcount.RcountSide 



i-i+RcountTop 
l=i-kcount+l 

RsidePoint(l p l)=RribcagePoint(l,i) 
RsidePoint(2 p l)-RribcagePoint(2,:) 



Lsi dePoi nt £1 , 1 J-Lri bcagePoi nt £1 , } J 



LsidePoi nt(2 , 1 )=Lri bcagePoi nt(2 
end do 



jcount-0 



1111 



do i«2,RcountTop ! exclude the first point which is top lung position 
jcount-jcount+1 

TopPoi nt(l.icount) -Rri bcagePoi ntfl.i) 
TopPoi nt(2 .jcount) -Rri bcagePoi nt(2 , i ) 
end do 

do i«l,n 

jcount-jcount+1 

TopPoi nt(l, icount)=RsidePoi nt(l, i ) 
TopPoi nt(2 , ]count)=RsidePoi nt(2 , i ) 
end do 

do i-2,LcountTop ! exclude the first point which is top lung position 
jcount=*jcount+l 

TopPoi nt(l, i count)-Lri bcagePoi nt (1 , i ) 
TopPoi nt(2 , ]count)-Lri bcagePoi nt(2 , i ) 
end do 

do i=l,n 

jcount-jcount+1 

TopPoi ntf 1, i count)*Lsi dePoi nt (1 , i ) 
TopPoi nt(2 , 3 count)-Lsi dePoi nt (2 , i J 
end do 

Top_No=jcount 

do i-l r Top_No 

tempPoi ntxfi )=TopPoi nt (1 , i ) 

tempPointY(i)*TopPoint(2 ,i) 
end do 

cal 1 rearrange_S_L (tempPoi ntx , tempPoi ntY , si ze ,Top_No) 
do i=l,Top_No 

TopPoi nt(l , i )=tempPoi ntx(i) 

TopPoi nt(2 , i )=tempPoi ntY(i ) 
end do 

&&& end of this part &&& *** 
open(l, file-' Rribcage.dat') 
do i - 1, 100 

write(l,llll) RribcagePoint(l.i) , RribcagePoi nt(2 , i ) 
end do 
close(l) 

open(l, file-'Lribcage.dat') 
do i = 1, 100 

write(l,llll) LribcagePoint(l.i), LribcagePoint(2,i) 
end do 
close(l) 
format (2i5) 



do i-kcount, Lcountside 
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program of detecting top lung ribcage by 
using vertical search box. currently the 
the ribcage search is in the direction of 
midline. 

first find the two inner stop point, 
then find the two start points 

History: April 6, 92 

Name: topRi bcage . for 



subroutine topRi bcage (image, nxw, nyh, top_i mage , xf.yf.xc , yc , 

boxw_h , boxh_h , control 1 , control 2 , control 3) 

implicit integer*2 (i-n) 



integer*2 
nxw.nyh, 
image(nxw.nyh) , 
top_image, 
xf ,yf , 

xc.yc, 

boxw_h,boxh_h, 

bx.by, 

controll, 



control 2 , 
control 3 



! buffer size 

! image buffer 

(bottom of top blank white; -1 no white 

! x & y coordinates of former top 

! ribcage point 

! x & y coordinates of current found 

! top ribcage point 

! half width & half height of vert, search box 

! =1, search for right lung; 
~ search for left lung; 



! "_' 

i -2, trace outside top L„ m 

! =1, not check the level of yep with yf 

! -2 , do not check 



trace inside top edge 
' i edge 



integer*2 posi (256) , pp_max , pp_min, si ze ,ycp 
realM prof (256) , prof_smo(256) , fd(2S6) , sd(256) 

real*8 sum 

initialize the prof ,prof_smo,fd,sd ****** 

size-256 

bx-boxw_h 
by-boxh_h 

do i-1.256 

prof (i) -0.0 

prof_smo(i)-0.0 

fd(i)-0.0 

sd(i)-0.0 
end do 



xc-xf 

c****** start of the program 
ix_start«xf-bx 



RIBCAGEPOINT3 . f 

if (ix_start.lt.l) ix_start-l 
ix_end=xf+bx 

if (ix_end.gt.nxw) ix_end=nxw 
iy_start=yf-by 

if (iy_start.le.top_image) iy_start>top_image+l 
iy_end-yf+by 

if (iy_end.gt.nyh) iy_end-nyh 
NN-iy_end-iy_start+l 
c ****** obtain the profile in the vertical search box ****** 
sum-0.0 

do iy=iy_start,iy_end 
k«iy-iy_start+l 
do ix-ix_start,ix_end 

sum-sum+f 1 oat (i mage ( i x , i y) ) 
end do 

sum-sum/float(ix_end-ix_start+l) 
prof (k)=sum 
sum=0.0 
end do 

c****** smooth the profile ************** 

i nc_smo-i nt (f loatf nyh)/142 .0) 

call prof_smo_sub (prof .size, NN,inc_smo,prof_smo) 

i nc_f d-i nt(f loat(nyh)/333 .0) 

call fd_south_sub(prof_smo,posi ,fd,size,NN,inc_fd,No_fd) 
ii-1 

cal 1 f i nd_mi nfd (posi , f d , No_f d , i i , pp_mi n) 

do k-pp_mi n, 2 . -1 

if ((fd(k).1t.0.0).and.(fd(k-l).gt.0.0)) then 
pp_max=posi (k) 
go to 5 
end if 
end do 

do k-pp_min,2,-l ! ! ! ! ! I 1 ! I ! ! 

if (fd(k-l).lt.fd(k)) then 
pp_max-posi (k) 
go to 5 
end if 
end do 



k-2 

pp_max-posi (k) 



I !!!!!! << ! M !!!! ! 
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inc_sd-int(float(nyh)/333.0) 

call sd_south_sub(prof_smo,posi ,sd,size,NN,inc_sd 1 No_sd) 

do k-l,No_sd 

if (posi(k).ge.pp_max) then 
k_search-k 
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go to 10 
ena if 
end do 

continue 

k_mi n=k_search 
sd_min«sd(k_mi n) 
do k»k_search+l, No_sd 
if (sd(k).lt.sd_min) then 
k_mi n»k 
sd_min-sd(k) 
end if 
end do 



RIBCAGEPOINT3 ■ f 



C I I I I ! 1 1 ! 1 1 M M ! 



/ criterion I MM!!!!! I 



do k=k_search,k_min-l 
kl-k+1 

if ((sd(k).lt.0.0).and.(sd(kl).gt.0.0)) then 
k_mid=k 

30 to 20 
if 

end do 
ratio«0.0 
go to 21 

20 continue 

k_mi ns=k_search 
sd_mi nS«sd(k_mi nS) 
do k=k_search+l, klmid 

if (sd(k).lt.sd_mins) then 
sd_nn ns»sd(k) 
k_minS=k 
end if 
end do 

rati o»sd_mi nS/sd_mi n 

21 continue 

if (rati o.gt. 0.500) then ! change from 0.600 to 0.500 
ycp»iy_start+posi(k_mins)-l I'M 
else 

ycp=iy_start+posi (k_min)-l !!!! 
end if 

c I I I I I ! I I 1 !!!!!!>! I ! M I ! M 1 1 I 

if (ratio. gt. 0.500) then 

kps=k_mi ns 
else 

kps-k_min 
end if 

if ((control2.eq.2Vand.(control3.eq.2)) then (check yep level 
if (ycp.le.yf) then 
do k=kps,No_sd-l 

if ((sd(k).le.0.0).and.(sd(k+l).ge.0.0)) then 
k_search=k+l 
go to 50 
end if 



do k=kps, No_sd-l !!!!!!!!!!!!!!!!! 
if (fd(k+l).lt.fd(k)) then 

Page 17 



k_search=k+l 
go to 50 
end if 
end do 

go to S4 
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sd_mi nT=sd(k_mi nT) 

do k«k_search+l, No_sd 

if (sd(k).lt.sd_ J minT) then 
k_minT-k 
sd_mi nT-sd(k) 
end if 
end do 

yc«iy_start+posi(k_minT)-l MM 

?o to 55 
se 
yc-yep 
go to 55 
end if 
else 
yc-yep 
go to 55 
end if 



54 yc=ycp 

55 continue 



c *************** ********************************** 



igraun of detecting ribcage edge using 
izontal search box 



Name: sideRibcage.for 
History: May 9,92 



subroutine sideRibcage(image,nxw,nyh,xf ,yf ,xc,yc, 

i e_top , i e_bottom , boxw_h , box h_h , cont rol 1 , cont rol 2 ) 



implicit integer*2 (i-n) 



integer*2 
nxw.nyh, 
image(nxw.nyh) , 
xf.yf , 



i e_top , i e_bottom , 
boxw_h,boxh_h 1 
bx.by , 



! buffer size 

! image buffer 

! x & y coordinates of former top 

! ribcage point 

! x & y coordinates of current found 

! top ribcage point 

! vertical range of ribcage edge 

! half width & half height of vert, search box 

Page 18 



RIBCAGEPOINT3.f 
& controll, ! -1, search for right lung; 

! =2, search for left lung; 
& control2 ! -0, continue search 

! =1, stop search 

integer*2 posi (256) , pp_max , pp_mi n,si ze 

real*4 prof (256) , prof_smo(256) , fd(256) , sd(256) 

real*8 sum 

'*** initialize the prof , prof.smo , fd ,sd ****** 

size-256 

bx«boxw_h 
by«boxh_h 

do i-1,256 

prof (i)-=0.0 

prof_smo(i)=0.0 

fd(i)-0.0 

sd(i)-0.0 
end do 

yc«yf 

start of the program ************** 
ix_start*xf-bx 

if (ix_start.lt.l) ix_start»l 
ix_end-xf+bx 

if (ix_end.gt.nxw) ix_end-nxw 
iy_start«yf-by 

if (iy_start.le.ie_top) iy_start-ie_top 
iy_end=yf+by 

if (iy_end.gt.ie_bottom) iy_end=ie_bottom 
NN=i x_end-i x_start+l 

obtain the profile in the horizontal search box 
sum=0.0 

do ix»ix_start,ix_end 
k=ix-ix_start+l 
do iy«iy_start,iy_end 

sum=sufn+fl oat (i mage (ix.iy)) 
end do 

sum«sum/f 1 oat (i y_end-i y_start+l) 
prof (k)=sum 
sum=0.0 
end do 

smooth the profile ************** 

inc_smo-i nt(float(nxw)/142 .0) 

cal 1 prof_smo_sub (prof , size , NN, i nc_smo , prof_smo) 



r ************************** 



if (controll. eq . 1) then 

inc_fd«int(float(nxw)/333.0) 

cal 1 f d_south_sub (prof_smo , posi , f d , si ze , NN , i nc_f d , No_fd) 
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cal 1 f i nd_mi nf d (posi , f d , No_fd , control 1 , pp_mi n) 

do k»pp_min,2,-l 

if ((fd(k).1t.0.0).and.(fd(k-l).gt.0.0)) then 
pp_max«posi (k) 
go to 5 
end if 
end do 

do k=pp_min,2,-l ! M M M ! ! M M M ! ! 
if (fd(k-l).lt.fd(k)) then 
pp_max=posi (k) 
go to 5 
end if 
end do 

k-2 

pp_max=posi (k) 



!!!!!!!!!!!! 



else 

i nc_fd=int(f loat(nxw)/333 . 0) 

call fd_north_sub(prof_smo,posi 1 fd,size.NN,inc_fd,No_fd) 

cal 1 f i nd_mi nfd (posi , fd , No_f d , control 1 , pp_mi n) 

do k-pp_min, No_fd-l 

if ((fd(k).lt.0.0).and.(fd(k+l).gt.0.0)) then 
pp_max=»posi (k) 
go to 5 
end if 
end do 

do k=pp_min, No_fd-l !!! M M !!!!!!! M t 
if (fd(k+l).lt.fd(k)) then 
pp_max«posi (k) 



go to 5 

tnd if 



end if 
end do 



k-No_fd-l 

pp_max=posi (k) ! M M I ! ! ! ! M M ! ! ! 



end if 
conti nue 



inc_sd-i nt(float(nxw)/333.0) 

call sd_south_sub(prof_5mo,posi , sd, size.NN , i nc_sd , No_sd) 

do k-l,No_sd 

if (posi(k).ge.pp_max) then 
k_search«k 
go to 10 
end if 
end do 

continue 

if (controll. eq.l) then 
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k_mi n»k_search 
sdjni n«sd(k_mi n) 
do k=k_search+l, No_sd 
if (sd(k),lt.sd_min) then 
k_mi n=k 
sd_mi n*sd(k) 
end if 
end do 

if (sd_min.eq.O) then 

control2»l 

return 
end if 

CIMMIIIHIMH new critien !!!!!!!!!!! 

do k-k_search,k_min-l 
kl-k+1 

if ((sd(k).lt.0.0).and.(sd(kl).gt.O.O)) then 

k_mid»k 

go to 20 
end if 
end do 
ratio-0.0 
go to 21 

20 continue 
k_mins=k_search 
sd_mi nS=sd (k_mi nS) 

do k»k_search+l,k_mid 

if (sd(k).lt.sd_mins) then 
sd_mi nS»sd(k) 
k_mi ns=k 
end if 
end do 

rati o=sd_mi nS/sd_mi n 

21 continue 

if (ratio. gt. 0.600) then 

xc=ix_start+posi (k_minS)-l !!!! 
else 

xc=ix_start+posi(k_min)-l !M! 
end if 

go to 25 

c !!!!!!!! I !!!!!! MM! I !!! I !! ! 

else 

k_min=k_search 

sd_min=sd(k_min) 

do k-k_search-l,l, -1 

if (sd(k).lt.sd_min) then 
k_mi n=k 
sd_mi n-sd(k) 
end if 
end do 

if (sd_min.eq.0) then 

control2=l 

return 
end if 

c!!!!!!!!!mill new critien !!!!!(!!!!! 
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do k«k_min+l, k_search-l 

if = ((sd(k).gt.0.0).and.(sd(kl).lt.0.0)) then 

k_mi d-kl 

go to 22 
end if 
end do 
ratio»0.0 
go to 23 

22 continue 
k_mins-k_mid 
sdjrii ns-sd (k_jni ns) 
do k=k_mid+l,k_search 

if (sd(k) .1t.sd_minS) then 

sd_minS«sd(k) 

k_mi nS=k 
end if 
end do 

rati o»sd_mi nS/sd_mi n 

23 continue 

if (ratio. gt. 0.600) then 

xc-ix_start+posi (k_mins)-l Mil 
else 

xo-ix_start+posi (k_min)-l Ml! 
end if 
go to 25 

end if 

25 continue 

return 
end 

c *********************************************************** 

c purpose: To find midline, right and left lung minimum PV positions 
c by analyisis of horizantal profile and its first derivative 

c Name: find_midline_RM_LM.for 

r**************************************************************************** 



*********** 



subrouti ne find_midli ne_RM_LM(grof_smo ,nxw, fd , locationFD, 
implicit integer*2 (i-n) 



fd_No^midline 1 RM,LM, 
i ndex , ref , i ncrement) 



! x dimension of image buffer 
! actual dimension of first derivative 



! midline positino 



integer*2 nxw, 
fd_No 

integer*4 

midline 

integer*2 « . , , * , 

rm , lm , ! minimum PV position of right & left lung 

locationFD(1215) , I location of each element of FD value 
index, ! ?use? ref. ML;»1 use ref.ML>0 not use 

ref, ! ref. ML 

increment ! search range from ref. 



real*4 prof_smo(1215) , 



I smoothed profile 
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I first derivative of profile 



c *** *********************************************************** ************* 

c **** find midline **** 

if (index.eq.0) then 

nxq»i nt(f loat(nxw)/4 .0) 
max_PV»nxq 

prof_max=prof_smo(max_PV) 
do i«nxq+l, 3*nxq 

if (prof_smo(i).gt.prof_max) then 
prof_max«prof_smo(i) 
max_PV»i 
end if 
end do 

midline=max_PV ! find midline within range of: nxq--3*nxp 
end if 

if (index. eq.l) then 

istart-ref-i ncrement 
i end-ref+i ncrement 
max_Pv-istart 
prof_max-prof_smo(max_PV) 
do i-istart+1, iend 

if (prof_smo(i) .gt.prof_max) then 
prof_max=prof_smo(i ) 
max_PV=i 

end if 
end do 

midline=max_PV ! find midline within range of: i start— iend 



per90«0.9*prof_max 
do i=max_PV,l,-l 

if ( (prof _smo(i).ge.per90) .and. (prof_smo(i-l).le.per90)) then 
i_per90_r»i 

So to 10 
if 

end do 
conti nue 

do i-max_PV,nxw 

if ( (prof _smo (i ). ge. pe r90) .and. (prof_smo(i +1) .le.per90)) then 
i_per90_l=i 
go to 20 
end if 
end do 
continue 

find RM position **** 

do k«=l,fd_No 

if (locationFD(k) .ge.i_per90_r) then 
k_r=k 
go to 30 
end if 
end do 
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continue 

do k-l.fd_No 

if (locationFD(k) .ge.i_per90_l) then 
k_l-k 
go to 40 
en3 if 
end do 
continue 



do i-k_r, 
i 1-i -1 



1. -1 



if ((fd(i).gt.0.0).and.(fd(il).lt.0.0)) then 
aveRM«float(locationFD(i)+locationFD(il))/2.0 
RM-int(aveRM) 
go to 50 
end if 
end do 
continue 

find LM position **** 



do i-k_l , fd_No 
i 1-i+l 

if ((fd(i).lt.0.0).and.(fd(il).gt.0.0)) then 
aveLM-float(locationFD(i)+locationFD(il))/2.0 
LM-int(aveLM) 
go to 60 
end if 
end do 
conti nue 



Purpose 



: use fd and sd of hori . profile at vertical center of lung 
length to determine side ribcage start points(only x positions) 



c Name: sideRibcagestart_x.for 
£********************************************** 



************** 



subrouti ne f i nd_sideRi bcageStartX(prof , nxw, i nc_fd , i nc_sd , 
& Rout_x,Lout_x, RsideEdgeStartX.LsideEdgeStartx) 

implicit integer*2 (i-n) 

integer*2 nxw, ! image width 
& inc_fd,inc_sd, I increment for FD and SD 

& Rout_x,Lout_x, I positions where side ribcage start points 

! located outside them 
& RsideEdgeStartx.LsideEdgeStartX ! start points( x posi.) 

I of right and left side rib 

realM prof(1215) 

************************************* 



c *************** 

integer*2 fd_No.sd_No, 
& locationFD(1215),locationSD(1215) 

i nteger*2 Rsi destartx_f d , Rsi destartx_sd , 
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& LsideStartX_fd,LsideStartX_sd 

realM fd(1215) , sd(1215) 

real*4 RFDposi , LFDposi .RSDposi .LSDposi 

conside right lung side ribcage start point x posi . first *** 

ifd=inc_fd 
isd=inc_sd 
ind=0 

cal 1 f d_sou th_sub (prof , 1 ocati onFD , f d , nxw, nxw, i f d , f d_No) 
cal 1 sd_sou th_sub (prof, 1 ocati onSD , sd , nxw, nxw, i sd , sd_No) 

do 1-1. fd_No 

if (locatianFD(i) .ge.Rout_x) then 
kRend=i 
go to 10 
end if 
end do 
continue 

do i=kRend,2,-l 
il=i-l 

if^fd(j).1t.0.0).and.(fd(il).gt.0.0)) then 

RFDposi-f1oatnocationFD(iUlocationFD(il))/2.0 
RsideStartx_fd=i nt (RFDposi ) 

30 to 20 
if 

end do 
lndex«l 
conti nue 

do i-1, sd_No 

if (locationSD(i) .ge.Rout_x) then 
kRend=i 
go to 30 
end if 
end do 
continue 

do i=kRend,2,-l 
il-i-1 

if ((sd(i).gt.0.0),and.(sd(il).lt.0,0)) then 
RSDposi -f 1 oat (1 ocati onSD(i ) +1 ocati onSD(i 1) )/2 . 0 
Rsi deStartX_sd=o nt (RSDposi ) 
go to 37 
end if 
end do 
ind-ind+1 

if (ind.lt. 2) then 

isd=ifd 

go to 1 
end if 

conti nue 

if (Index. eq.O) then 

if (abs(Rsidestartx_sd-RsideStartx_fd).gt.nxw/10) go to 40 
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Rsi deEdgestartX*i nt (f 1 oat (Rsi destartx_f d+Rsi destartx_sd)/2 . 0) 
go to 50 
end if 

conti nue 

sd_mi n-sd(kRend) 

mi n-kRend 

do l-kRend-1.1,-1 

if (sd(j).it.sd_min) then 
sd_mi n=sd(j) 
mi n=j 
end if 
end do 

if (min.eq.l) then , , . , . xx ,„ _ 

RsideEdgeStartx=int(float(RsideStartX_sd+locationso(im n))/2.0) 
else 

RsideEdgeStartx=1 ocati onSD(mi n) 
end if 

continue 

conside left lung side ribcage start point x posi. now *** 

do 1-1, fd_No 

if (locationFD(i) .ge.Lout_x) then 
kLstart=i 

3o to 60 
if 

end do 
conti nue 

do i=kLstart, fd_No-l 
il-i+1 

if^ (jfd(i)-gt. 0.0). and. (fd(il). It. 0.0)) then 

LFDposi -floatfl ocati onFD(i)+locati onFD(i l))/2.0 

LsideStartX_fd=int (LFDposi) 

go to 70 
end if 
end do 
Index-1 
continue 

do 1-1. sd_No 

if (locationSD(i) .ge.Lout_x) then 
kLstart«i 
go to 80 
end if 
end do 
conti nue 



do i»kLstart 
il-i+1 
if (Csd(i) 



sd_No-l 



■" ((sd(i).gt.0.0).and.(sd(il).lt.0.0)) then 
LSDposi=float(locationSD(i)+locationSD(il))/2.0 
Lsidestartx_sd=int(LSDposi) 



oo to 87 
end i " 
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i nd=i nd+1 

if (ind.lt. 2) then 

i sd-i fd 

go to 1 
end if 



if (index. eq.O) then 

if (abs(LsideStartX_sd-LsideStartX_fd).gt.nxw/10) go to 90 

LsideEdgeStartx«int(float(LsideStartX_fd+LsidestartX_sd)/2.0) 
go to 100 
end if 



sd_mi n-sd (kLstart) 

mi n«kLstart 

do i-kLstart+1, sd_No 

if (sd(j).lt.sd_min) then 
scLmin-sd(j) 
mi n-j 
end if 
end do 

if (min.eq.sd_No) then 

LsideEdgestartX=int(float(LsidestartX_sd+locationSD(min))/2.0) 
else 

LsideEdgeStartx-locationSD(min) 
end if 

continue 



c subroutine: to fine min. position in first derivative 
c name find_minfd(posi ,fd,No_f d,pp_min, conti) 

subroutine fi nd_mi nfd(posi ,fd,No_fd, conti ,pp_min) 
implicit integer*2 (i-n) 

integer*2 posi (256) ,pp_min,No_fd, range_No, index, 
% conti 1-1, top or right ribcage;=2 left ribcage 



real*4 fd(256),ave, 



range(4,20) ! 1-1. . .20 
! for j 



_. can have 20 ranges; 
i -1 , 2 , 3 , 4 : Head ,Tai 1 , mi df d , posijiri nf d 



range_No«0 
i ndex=0 

do i=2,No_fd-2 

if (fd(i).gt.O.O) i ndex=i ndex+1 
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end do 

if (index. eq.O) then 
ave=0.0 

do i-2,No_fd-2 
ave«ave+fd(i) 
end do 

ave-ave/float(No_fd-2-2+l) 
el se 
ave-0.0 
end if 

do i=l,No_fd-l 

if ((fd(i).gt.ave).and.(fd(i+l).lt.ave)) then 
range_No=range_No+l 
range (2 ,range_No)=float(i) 
end if 
end do 



range_No=range_No+l 

range (2 , range_No) -f 1 oat (No_f d-1) 

ranged, 1)=2.0 
do ]»2 , range_No 

range(l,j)=range(2 , j-l)+l 
end do 

do j=l, range_No 

posi_mi n=range(l, j) 
fd_mi n=fd(i nt (range (1, j))) 
do k=«int(range(lo)+l) ,int(range(2, 
if (fd(k).lt.fd_min) then 
posi_mi n=float(k) 
fcLmin-fdflO 
end if 



end do 

range(3,:j)=fd_min. 
range(4,])=posi_min 
end do 

fdF=range(3,l) 
j_i ndF=l 
do j=2 , range_No 

if (range(3,i).lt.fdF) then 
fdF=range(3, j) 
j_i ndF-j 
end if 
end do 

if fcontl .eq.l) then 
if (j_indF.eq.l) then 
pp_mi n=i nt (range (4,1)) 
rati o=0.0 
go to 100 
end if 
else 

if (j_indF.eq.range_No) then 
pp_mi n*int(range(4, range_No)) 
rati o=0.0 
go to 100 

end if 
end if 



j_i nds=l 
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fds«range(3,l) 
do i-2,range_No 

if (range(3 s j^ .U.fdS) then 
if (j .eq.]_indF) go to 10 
fds»range(3, j) 
j_i nds»] 
end if 
continue 
end do 

if (contl.eq.l) then 

if (j_inds.gt. j-indF) then 

pp_mi n-i nt (range(4 , j_i ndF) ) 

rati o-O. 0 

go to 100 
end if 

e if e (j_inds. It. j_indF) then 
pp_mi n»i nt ( range (4 , j_i ndF) ) 
rati o^O.O 
go to 100 
end if 
end if 

ratio-range (3 , j_i nds)/range(3 , j_i ndF) 
if (ratio. gt. 0.500) then 
pp_mi n-i nt ( range(4 , j_i nds) ) 
else 

pp_mi n=H nt ( range (4 , j_i ndF)) 
end if 
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This subroutine is to fit the detected ribcage and top lung edges 
into smooth lung bounday. The boundary curve is seperated into 2 
sets, i.e. right and left sets. 



subroutine Ribcage_Detection( image, ncol , nlin, feature, 
1 Rribcage, Rribcage_No, Lribcage, Lribcage_No,cf_r,cf_1) 



Ver. 3.0 

Written by xin-Wei Xu, 
Modified by Akiko Kano 



"RIBCAGE FIT_NEW2" 
r.24, 1993 



Modified by xin-Wei Xu, Apr. 22, 1993 
Modified by xin-Wei xu, 12/10/93 



This subroutine detects ribcage edges of a chest image and returns the 
X,Y-locations of the ribcage points and the number of the points. 

(1) The ribcage curve is separated into right lung side and left lung 
side, about a midline at 1/5 top lung level. 

(2) If a detected ribcage curve is concave in the top lung, 
the top part is ignored. The curve starts with the highest 
point in its side and goes down. 

(3) Input image should have grayscale ranging from 0 to 1023, in which 
"0 r ' corresponds to high optical density and "1023" corresponds to 
low optical density. 



This subroutine calls; 

ribcagepoint3, kofi tc.pack , chest_pack3 



implicit integer*2 (i-n) 

integerM ncol , nlin 
integer*2 image(ncol ,nlin) 
integer*2 feature(SO) 
integer*2 Rribcage(2 , 1215) 



integer*2 Rribcage_No 
integer*2 Lri bcage(2 ,1215) 



integer*2 Lribcage_No 



! Matrix Size of Image Data 

! Input Chest Image Data 

I Features of Chest Image 

I Right Lung Side Ribcage Points 

! Rnbcage(l,*):X 

! Rribcage(2,*):Y -> Increases 1 by 

! No. of Right Side Ribcage Points 

! Left Lung Side Ribcage Points 

! Lribcage?l,*):x 

I Lribcage(2,*):Y -> increases 1 by 

I No. of Left Side Ribcage Points 



[o] 



VARIABLES 



rib 
rib 



integer*2 nxw, nyh, 
& TopFit(2,1215),TopFit_No, ! fitted points of top ribcage 

& RsideFitNewC2,1215),RsideFitNew_No,! fit. pot. of R. side 

& LsideFitNew(2,1215),LsideFitNew_No ! fit. pot. of L. side 

integer*2 TopPoi nt(2 , 100) ,Top_No, 

RsidePointf2,100j,RcountSide, 
LsidePoi nt (2, 100) , Lcountside, 
con_No, 

Rconxl, RconX2 , LconXl , Lconx2 , conYl , conY2 , 
RconL , RconU, LconL , LconU , 
deg , degl , row , col 1 urn , count , 
RsideFi t (2 , 1215) , RsideFi t_No , 
LsideFit(2, 1215) , LsideFi t_No, 
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integer 

realM 

real 



RIBCAGE_DETECTION.f 
tempx(1215) ,tempY(1215) ,tempX2(1215) , tempY2 (1215) , 
dy 

rc0.rcl.lc0.lcl 

cf_r(21), cf_l (21) lribcage fitting coef. of R. & L. lungs 
temppoi ntx(100) , temppoi ntY(lOO) , 
cf(21) ! polynomial cofficients 



DESCRIPTION OF FEATURES 



lungTop ! top of lung 

lungBottom ! bottom of lung (right diaphragm) 
vertical position of 1/5 of lung length 



vertical position of center of image 
vertical position of center of lung length 
midline position at 1/5 of lung level 
midline position at vertical center level 
midline position at center of lung level 

(9) : minimum position of right lung at 1/5 lung level (URM) 

(10) : mini mum position of left lung at 1/5 lung level (UL.M) 

(11) :minimum position of right lung at center lung level (LRM) 

(12) :minimum position of left lung at center lung level (LLM) 

(13) :bottom position of side ribcage fitting- 

lungBottom+certain % of (lungBottom-lungTop) 

(14) : Right Diaphragm egde tracing x start, will be obtained 

from ribcage_detection.for 

(15) :Right Diaphragm edge tracing x end, ontained from 

riocagepoi nt3 . for 

(16) : Left Diaphragm egde tracing X start, obtained from 

ribcagepointS.for . 

(17) : Left Diaphragm edge tracing x end, will be ontained from 

ri bcage_detecti on . for 



nxw 
nyh 



ncol 
nlin 



do i-1,50 

feature(i)«0 
end do 

do i=l,1215 

Rribcage(l,i)«0 

Rribcagef2,i)-0 

Lribcagefl,i)»0 

Lribcage(2,i)=0 
end do 

con_No=3 

cal 1 ri bcagePoi nt3 (image , nxw, nyh , feature , 
& con_No , TopPoi nt ,Top_No , 

& Rsi dePoi nt , RcountSi de , 

4 Lsi dePoi nt, Lcountside) 



c *** $$$ find connect range JJJ *** 
do 1-1,10 
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! connect points in side ribcage 



cf_r(i)-0.0 
cfj (i)-0.0 
end do 

n-con_No 

maxx-TopPoi nt(l.l) 
mi nX-TopPoi nt(l,l) 
do i=2, n 

if (TopPoi nt(l,i).gt.maxx) maxX-TopPoint(l.i) 
if (TopPoi nt(l,i). "It. minx) mi nx=TopPoi nt(l, i ) 

end do 

Rconxl-mi nx 

RconX2 -maxX 

maxX*TopPoint(l,Top_No) 

mi nX-TopPoi nt (1 ,Top_No) 

do i-Top_No-l,Top_No-n+l, -1 

if (TopPoi nt(l, i) .gt.maxx) maxx-TopPoint(l.i) 
if (TopPoint(l,i).Tt.minX) minX-TopPoint(l.i) 

end do 

LconXl-minX 

LconX2=maxX 

conYl-Rsi dePoi nt (2 , 1) 
conY2«=RsidePoint(2,n) 

c *** &&& end of this part SA& *** 

c *** $$$ part: curve fitting part &&& *** 

c *** top lung first *** 

deg»4 I using 4th order polynomial fuction in top ribcage 
degl-deg+1 

do i*l, Top_No 

temppoi ntx (i ) «=f 1 oat (TopPoi nt (1 , i ) ) 
tempPoi ntY(i )-f loat(TopPoi nt(2 , i )) 



^ call kofi tc (temppoi ntx, tem^Poi ntY,Top_No, 



I fitting 



tempPoi ntx.tempp 
degl.cf.deg.ind) 
relation: Y=a0+a 



aO+al*X+a2*X**2+a3*x**3 



count=0 

do collum="RconXl,LconX2 
ix»collum 

call polyfi tc_i nteger(i x , cf ,deg , iy) 

count=count+l 

TopFit(l,count)-ix 

TopFit(2 ,count)=iy 
end do ! fitting the right ribcage 

TopFi t_No=count 

c *** right lung second *** 

deg-4 I using 4th order polynomial functions for side ribcages 
degl=deg+l 

do i-l,RcountSide 

temppoi ntx(i)=float(Rsidepoint(l,i)) 
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tempPointY(i)*float(RsidePoint(2,i)) 
end do 



cal 1 kofi tc(tempPoi ntY , tempPoi ntx , RcountSi de , 
& degl.cf.deg.ind) 

! fitting relation: X«aO+al*Y+a2*Y**2+a3*Y**3 

do i-l,degl 

cf_r(i)-cf(i) 
end do 

count=0 

do row*conYl,feature(13) 
iy«row 

call polyfi tc_integer(iy,cf ,deg,ix) 

count=count+l 

RsideFi t(l,count)-ix 

RsideFi t (2 ,count)-iy 
end do ! fitting the right ribcage 

RsideFi t_No-count 

c *** then left ribcage *** 

do i«l, Lcountside 

temppoi ntx(i )-f 1 oat(Lsi dePoi nt(l , i ) ) 
tempPoi ntY(i )-float(LsidePoi nt(2 , i )) 

end do 



cal 1 kofi tc(tempPoi ntY , tempPoi ntx , Lcountsi de , 
& degl.cf.deg.ind) 

! fitting relation: X=aO+al*Y+a2*Y**2+a3*Y**3 

do i*l,degl 

cf_l(i)-cf(i) 
end do 

count=0 

do row^conYl, feature (13) 
iy*row 

call polyfi tc_integer(iy,cf .deg.ix) 

count=count+l 

LsideFi t(l, count) =i x 

LsideFit(2 ,count)*iy 
end do I fitting the left ribcage 

LsideFi t_No-count 

c *** &&& end of this part &&& *** 

c *** raa ke connection and modify fitted ribcage curves &&& *** 

c *** top part right *** 

RconL=TopFit(2,l) 
RconU-conYl 

do i=l,TopFi t_No 

i f "( (TopFi t (2 , i ) . ge . RconU) . and . (TopFi t (2 , i 1) . 1 e . RconU) ) then 
nu=i 



en<i i 



10 to 500 
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a-1.0/float(nU-l+l) 
k*0 

do -Ul.nu 
k=k+l 

ak-a*float(k) 
bk-l.O-ak 
kref-TopFit(2,i) 
do i=l,RsideFit_No 

if (RsideFit(2.j).eq.kref) then 

TopFi t(l p i)=i nt(ak*f loat(TopFi t(l, i )) + 
& bk*f-|oat(R5ideFit(l,j))) 
go to 505 
end if 
end do 
505 continue 
end do 

c *** top part left *** 

LconL-TopFi t(2 , TopFi t_No) 
LconU-conYl 

do i-TopFit_No,l, -1 
il-i-1 

if ((TopFit(2 ,i) .ge.Lconu).and. (TopFi t(2 , i 1) .le.LconlO) then 
nu-i 

go to 600 
end if 
end do 
600 conti nue 

a-1. 0/f loat(TopFi t_No-nU+l) 
k-0 

do i=TopFit_No,nU,-l 
k-k+1 

ak-a*float(k) 
bk-l.O-ak 
kref-TopFit(2,i) 
do i-l,LsideF-it_No 

if (LsideFit(2. j).eq.kref) then 
TopFi t(l.i)-int(ak*floatfTopFit(l,i))+ 
& bk*float(LsideFit(l,j))) 
go to 605 
end if 
end do 
60S continue 
end do 

c *** right side *** 

do i»l,RsideFit_No 

if (RsideFit(2,i).eq.RconL) then 
js=i+l 
qo to 700 
end if 
end do 
700 continue 



RsideFi tNew_No=RsideFit_No-js+l 
do i-1, RsideFi tNew_No 
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RsideFi tNew(l,i)-RsideFit(l,i) 
RsideFi tNew(2,i)=RsideFitC2,:5 
end do 



c *** left side *** 

do i-l,LsideFit_No 

if (lsideFit(2,i).eq.LconL) then 
js*i+l 
go to 800 
ena if 
end do 
800 continue 

LsideFitNew_No«LsideFi t_No-js+l 
do i-l,LsideFitNew_No 
j-1+js-l 

LsideFitNewfl,i)-LsideFit(l,j) 
LsideFi tNew(2 , i )-LsideFi t(2 ,j) 
end do 

c *** &&& end of this part &&& *** 

c *** reformat the ribcage into two parts: right and left ribcage curve *** 

ML-feature(6) 
1-1 

do while (TopFi t(l, i ) , 1 1 . ML) 

end do 
jML-i 

c *** first reformat right side ribcage curve *** 

do i=l,121S 

tempx(i)=0 

tempY(i)-0 

tempX2O)«0 

tempY2(i)=0 
end do 

i=l 

do while ( i.lt.jML -and. TopFit(2 ,i) .ge.TopFit(2 ,i+l) ) 

i»i+l ! process right half top ribcage curve 

end do 
jMLr=i 

do i=l,jMLr 

tempxfi )«TopFi t (1 , i ) 

tempY(i)»TopFit(2,i) 
end do 

c *** part to eliminate data which y position is same *** 

do i»jMLr,2,-l 
j-1-1 

do k-i.1,-1 

if (tempY(k).eq.tempY(i)) then 

tempY(k)-0 
end if 
end do 
end do 
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i bcage (1 , rcl) -tempx2 (i ) 
i bcage (2 , rclj -tempY2 (i ) 



rcO-O 

do i-iMLr,l p -l 

if (tempY(i) .ne.0) then 
rc0-rc0+l 

tempX2(rc0)=tempX(i) 
tempY2(rc0)=tempY(i) 
end if 
end do 

c *** end of this part *** 
c *** part of inserting y value *** 
rcl-0 

do i-l,rc0-l 
rcl.rcl+1 
Rrib 
Rrib 
il»i+l" 
dy-tempY2 (i 1) - tempY2 (i ) 
if (dy.gt.l) then 
iy«tempY2(i) 
iyl-tempY2(il) 
do j-iy+l,iyl-l 
rcl-rcl+1 

Rri bcage f 1 , rcl) =tempX2 (i ) 
Rribcage(2,rcl)=j 
end do 
end if 
end do 

c *** end of this part *** 

c *** make up whole right side ribcage curve by adding right side edges ' 

do 1-1, RsideFi tNew_No 
rcl=rcl+l 

Rri bcagefl , rcl) -Rsi deFi tNewfl , i ) 
Rribcage(2 , rcl)-RsideFi tNew(2 , i ) 
end do 

Rribcage_No-rcl 
c *** end of this part *** 

feature(14)=Rribcage(l,Rribcage_No-5) I ! I ! 
c &&«5ASA&&^^ 

c *** now reformat left side ribcage curve *** 

do i -1,1215 

tempX(i)-0 

tempY(i)=0 

tempX2m-0 

tempY2(i)=0 
end do 



tempX(l)-TopFit(l,l) 
tempY(l)=TopFit(2,l; 



i -TopFi t_NO 

do while ( i.gt.jML .and. TopFi t(2 , i) .ge. TopFi t(2, i -1) ) 

i*i-l ! process left half top ribcage curve 
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end do 
jMLl»i 

do i-jMLl ,TopFit_No ! process left half top ribcage curve 

tempxCi j -TopFi t (1 , i ) 

tempY(i)-TopFit(2,i) 
end do 

c *** part to eliminate data which y position is same *** 

do i-jMLl ,TopFit_No-l 
j-i+1 

do k-] ,TopFit_No 

if (tempY(k) .eq.tempY(i)) then 

tempY(k)-0 
end if 
end do 
end do 

leO-O 

do i-jMLl , TopFi t_No 

if (tempY(i) .ne.0) then 
Ic0-lc0+l 

tempx2(lc0)=tempx(;i) 
tempY2(lc0)-tempY(i) 
end if 
end do 

c *** end of this part *** 
c *** part of inserting y value *** 
lcl-0 

do i-l.lc0-l 
lcl-1cl+l 

Lribcage(l,lcl)-tempX2 (ij 
Lribcage(2,lcl)=tempY2 (i) 
i l«i +1 

dy-tempY2 (i 1) -tempY2 (i ) 
if (dy.gt.l) then 

iy=tempY2(i) 

iyl*tempY2(il) 

do j-iy+l,iyl-l 
lcl-lcl+1 

Lri bcage fl,lcl)-tempx2(i) 
Lribcage(2,lcl)-j 
end do 
end if 
end do 

c *** end of this part *** 

c *** make up whole left side ribcage curve by adding right side edges ' 

do i-l.LsideFitNew_No 
lcl-lcl+1 



Lribcage(l,lcl)=LsideFi tNewfl, i) 
Lribcage(2,lcl)=LsideFi tNew(2,i) 
end do 

Lribcage_No«lcl 



end of this part *** 
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feature(17)=Lribcage(l,Lribcage_No-5) i Mill 
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function ROI_Selection( image2, ncol , nlin, 
& featurel, rribcagel, lribcagel, 

& feature2, rribcage2, lribcage2, rri bcage„no2 , 1 ribcage_no2 , 

& sas, tps, inc, ldlimit, number, sac, tpc, regionl, region2 

& shiftmid, ribtop) 



ver. 1.0 

Written by Akiko Kano, 



Mar. 24, 1993 



This function selects centers of template ROls on Image2 and correspond- 
ing search area ROls on Imagel for local matchings. 

(1) Template ROls are selected in the lung area including the neck on 
Image2 . 

(2) Search area ROls are then located on Imagel by shifting all the 
template ROls. Global shift is performed for the right lung area 
and for the left lung area, independently. The amount of shift is 
determined based on the x-location of the midline at 1/5 of top 
lung level and the y-location of the highest point on the ribcage 
curve. 

(3) Template ROI is not selected if average pixel value of the center 
and surrounding 8 pixels is less than (ld_limit). 

i the following cases, quit processing and returns "error". 
Top lung is Tower than 30 % line from the top of the image. 
Midline is apart from the center more than 15 % of the image 
width. 

Shift value y for the right lung area and the left lung area are 
different from each other by more than 4 % of the image height. 



(4) 



ARGUMENTS 



impli ci t 
integer*4 
i ntegerM 
integer*2 
integer*2 
integer*2 



none 

ROl_selection 
ncol, nlin 
image2(ncol ,nlin) 
featurel(50) 
rribcagel(2,1215) 



integer*2 lribcagel(2,1215) 



I Matrix Size of Image Data 

! Original Image Data 2 

! Features of chest Image 1 

! Right Lung side Ribcage Points 

! Rribcage(l,*):X 

! Rribcage(2,*):Y 7> Increases 1 by 



integer*2 
integer*2 



integer*2 
integer*2 



i nteger*2 
i nteger*4 
i ntegerM 
i ntegerM 
i ntegerM 

i ntegerM 
i ntegerM 

i ntegerM 

i ntegerM 



feature2(50) 
rribcage2(2,1215) 



rribcage_No2 
lribcage2(2,1215) 



lribcage_No2 
sas 
tps 
i nc 

ldlimit 

number 
sac(2,*) 

tpc(2,*) 

regionl(4),region2(4) 



I Left Lung Side Ribcage Points 

! LribcageCl,*):X 

! Lribcage(2,*):Y -> Increases 1 by 

! Features of chest Image 2 

! Right Lung Side Ribcage Points 

! Rribcage(l,*):X 

! Rribcage(2,*):Y -> Increases 1 by 

! no. of Right side Ribcage Points 

! Left Lung Side Ribcage Points 

! Lribcage(l,*):X 

! Lribcage(2,*):Y -> Increases 1 by 

! No. of Left Side Ribcage Points 

! Search Area ROI Size (Pixels) 

! Template ROI Size (Pixels) 

! Distance Between ROls (Pixels) 

! Pixel value for Low Density Limit 
! ROI Selection 

! Number of Template ROls 

! Locations of search Area Centers 

i sac(l,*):X, sac(2 *):Y 

! Locations of Template Centers 

! tpc(l,*):x, tpc(2,*):Y . 

1 Rectangle Region including All Poi 
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ROI_SELECTION.f „ , 

! regional, 2): Upper-Left [O] 
! region*(3,4) :Lower-Right 

! — — " — 

! VARIABLES 

! -- " — 

realM P_TOP, P.MID, P_DIF 
c parameter (P_TOP=0.3, PJ4X0-0.1S, P_DIF=»0.041 

parameter (P_TOP=0.4, P_MID-0.15, P_DIF-0.04) 
c character str*80 

integerM rdiff(2), ldiff(2) 

integerM mid, rtop, ltop, top. bottom 

integerM riml, rim2, rim3, neck, pave 

integerM MC, TL, ML, c, L, cc, LL 

integerM SC, EC, SL, EL, OSC, OEC 

integerM NR. NL 

integerM rlimit, llimit, tlimit, blimit 

integerM chtop, chmid, chdif 

integerM id 
c integerM leng 

integerM shiftmid, ribtop 

common /LOGFILE/ id 

I — 

! FUNCTIONS 

c integerM Find_sideColumn ! This routine must be defined as subroutine, 
c integerM PutoutputF, utl$str_print, utlJfilelwrite 

? 

i 

! 1. determine shift values 

c rdiff(l) - featurel(6) - feature2(6) 

c ldiff(l) - featurel(6) - feature2(6) 

c rdiff(2) » rribcagel(2,l) - rribcage2 (2 , 1) 

c Idiffm - lribcagel(2,l) - 1 ribcage2 (2 , 1) 

c rdiff(2) ■= featureim - feature2(3) 

c ldiff(2) « featurelO) - feature2(3) 

rdiff(l)-shi ftmid 

ldiff(l)-shi ftmid 

rdiffm-ribtop 

ldiff(2)=ribtop 

c writeN,*) 'rdSfffl) - '. rdiff(l), ' ldifffl) - ' Idiff(l) 

c write(*>) 'rdiff(2) - '. rdiff(2). " ldiff<2) - ldiff(2) 

j 2. DISPLAY PARAMETERS 

!— 

c leng - utlSstr_print _ /j 

c 1 ( str, ' Template size»%i search Area size=Xi Distance=%i , 

c 2 tps, sas, inc ) 

c call UTL$FILE_WRITE( id, str ) , , 

c leng « utl$str_PRINT( str, ' Low Density Limit*Xi', ldlimit ) 

c call utlSfile_write( id, str ) 

write (id,*) ' Template Size - ', tps, ' Search Area Size - ', sas, 
1 ' Distance * ' ,inc 

write(id,*) ' Low Density Limit - ', ldlimit 

c call PutOutputF( ' ' ) 

c write(*,*) 7 * 

mid » featurel(6) 

rtop « rribcagel(2 , 1) 

ltop - lribcagel(2,l) 

top » featurel(l) 
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bottom - featurel(2) 

leng - UTL$STR_PRINT( str, 

1 ' Imagel : Mid(l/5)=%3i RTop*X3i LTop=%3i n 

2 mid, rtop, 
call PutoutputF( '%s' . str ) 

call UTLiFILE_WRITE( id, Str ) 

write(id.lOOO) ' imagel : Mid(l/5) - '. mid, 

ltop, 1 Top - , top, 
formatfA, 13, A, 13, A, 13. A, 13, A, 13) 
mid •= feature2(6) 
rtop - rribcage2(2,l) 
ltop - lribcage2(2,l) 
top - featurez(l) 
bottom » feature2(2) 
leng - UTL$STR_PRINT( str, 

1 ' Image2 : Mid(l/5)*X3i RTop-X3i LTop=X3i 

call PutoutputF( '%s' . str ) 
call UTL$FILE_WRITE( id, str ) 



ltop, top, bottom ) 



, i o p=* a i Top-X3 i Bo ttom-% 3 i ' , 
mid, rtop, ltop, top, bottom ) 



write (id, 1000) 
write(MOOO) ' 



Image2 : Mid(l/5) - ' 
ltop, ' Top =. 
Image2 : Mid(l/5) - ' , 
ltop, ' Top - 



mid, ' Rtop - ', rtop, ' Ltop * 
, top. ' Bottom » ', bottom 
mid, Rtop * ', rtop, * Ltop * 
, top, ' Bottom * ', bottom 



Shi ft 

call UTL$FILE_WRITE( id, Str ) 

write (id. 1010) rdiff(l), rdiff(2) 
format( 1 shift : RightC, 13, ',' 

,' shift 
str ) 
d, str ) 



write (id, 1020) ldiff(l), ldiff(2) 
format( 1 Shift : Left (',13, ','.13, 



leng - utlSstr_print( str 
call PutoutputFC '36s', str ) 



leng = UTL$STR_PRINT( sti 
call PutoutputF( '%*' 
call utlSfile_write( 



: Right(X3i,X3i)'.rdiff(l),rdiff(2)) 

, 13, ')') 
: Left (%3i,X3i)',ldiff(l),ldiff(2)) 



3. CHECK TOP AND MIDLINE 

ROl_Selection ■ 0 

chtop - nint( P_TOP * float(nlin) ) 
chmid - nint( P_MID * float(ncol) ) 
chdif - nintC P_DIF * float (nlin) ) 

if ( rribcagel(2,l).gt. chtop .or. 1 ribcagel(2 , 1) . gt. chtop ) then 
call PutoutputF 

1 ( 'II! Top lung of Imagel is too low, may be incorrect. HI' 

write(*,*) '111 Top lung of Imagel is too low, may be inco 

return 

end if 

if ( rribcage2(2,l).gt.chtop .or. 1 ribcage2 (2 , 1) .gt. chtop ) then 
call PutoutputF 

1 (' III Top lung of lmage2 is too low, may be incorrect. !!!' ) 

write(*,*) MM Top lung of Image2 is too low, may be incorrect. MM 
return 

end if 

if ( abs(featurel(6)-ncol/2).gt. chmid ) then 
call PutoutputF 
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c 1 (MM Midline of Imagel is one-sided, may be incorrect. MM ) 

write(*,*) MM Midline of Imagel is one-sided, may be incorrect. MM 
return 
end if 

if ( abs(feature2(6)-ncol/2) .gt. chmid ) then 
c call PutoutputF 

c 1 (MM Midline of lmage2 is one-sided, may be incorrect. Ml ) 

write(*,*) 'Ml Midline of Image2 is one-sided, may be incorrect. MM 
return 
end if 

if ( abs(rdiff(2)-ldiff(2)).gt. chdif ) then 
c call PutoutputF 

c 1 (MM Right and left top lung are unbalanced, may be incorrect. M! ) 

write(*,*) MM Right and left top lung are unbalanced. May be 
incorrect. MM 

return 
end if 

! 

i 4. DETERMINE OUTSIDE LIMIT 

rlimit - max( l+tps/2 , l-rdiff(l) ) 

llimit * min( ncol-tps/2. ncol-ldiff(l) ) 

tlimit - max( l+tps/2, max( l-rdiff(2), l-ldiff(2) ) ) 

blimit - min( nlin-tps/2, min( nlin-rdiff (2) , nlin-ldiff (2) ) ) 

5. DETERMINE HOW MUCH BIGGER THE ROI SELECTION AREA IS THAN RIBCAGE AREA 

! - - 

riml ■ inc * 2 
rim2 = tps / 2 
rim3 - tps / 4 
neck * inc * 2 

""~6""dETERMINE TOP LUNG (TP) , 1/5 FROM TOP (ML) , AND MIDLINE (MC) 

! TL«"min("rribcage2(2,l), 1 ri bcage2(2 , 1) ) 

ML - feature2(3) 
MC » feature2(6) 

I 

I 7. DETERMINE START LINE AND END LINE 

! 

SL » TL - riml 

SL - max( SL, tlimit ) 

EL - max( rribcage2 (2 , rri bcage_no2) , 1 ri bcage2 (2 , 1 ribcage_no2) ) + mc 

EL - min( EL, blimit ) 

! 

! 8. INITIALIZE 

! 

L * SL 
NR - 1 
NL * 1 

OSC » mc - neck 
OEC - MC + neck 
number « 0 
region2(l) - osc 
region2(3) - OEC 

! 9. DETERMINE START COLUMN AND END COLUMN FOR EACH LINE 

! 

do while ( L.le.EL ) 

i 9-1. NECK ( HIGHER THAN (TL-INC) ) 

! — 
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if ( L.lt.(TL-inc) ) then 
SC - OSC 
EC ■ OEC 

!--- 

! 9-2. TOP LUNG ( HIGHER THAN ML ) 

! 

else if ( L.le.ML ) then 

if ( L .It. rribcage2(2,l)-rim2 ) then 

sc - min( rribcage2(l,l) . osc ) 
else if ( L .le. rri bcage2 (2 , 1) ) then 

call Find_sideColumn( L+Hm2, sc, osc, rribcage2, NR, -rim2, 
1 rlimit ) 

else 

call Find_SideColumn( L. SC, OSC, rribcage2, NR, -rim2, 
1 rlimit ) 

end if 

if ( L -It. Iribcage2(2,l)-rim2 ) then 

EC - max( lribcage2(l,l), OEC ) 
else if ( L .le. Inbcage2(2,l) ) then 

call Find_sideColumn( L+nm2, EC, OEC, 1ribcage2, NL, rim2, 
1 llimit ) 

else 

call Find_sideColumn( L. EC, OEC, lribcage2, NL, rim2, 
1 llimit ) 

end if 

OSC - SC 
OEC - EC 

I - — 

! 9-3. MID AND BOTTOM LUNG ( LOWER THAN ML ) 

I 

else 

if ( L.le.rribcage2(2,rribcage_no2) ) call Find_sideColumn 
1 ( L, SC, OSC, rribcage2, NR, -rim3, rlimit ) 

if ( L.le.lribcage2(2,lribcage_no2p ) call Fmd_sideColumn 
1 C L, EC, OEC, lribcage2, NL, Hm3, llimit ) 

end if 

i 

! 10. SELECT CENTER OF TEMPLATE 

I --- 

C - MC 

! 

1 10-1. START SEARCH 

| _ 

do while ( c.ge.SC+inc ) 
C - C - inc 

if ( clt.region2(l) ) region2(l) - c 
do while ( C le.EC ) 

I 

! 10-2. CHECK PIXEL VALUE 

! 

pave = 0 

do LL - L-l, L+l 

do CC - C-l, C+l 

pave - pave + image2(CC,LL) 

end do 
end do 

pave - pave / 9 

Tf ( pave.le.ldlimit ) then 

! 10-3. DETERMINE CENTER 
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! 

number - number + 1 
tpcfl, number) = C 
tpc (2, number) - L 

! 11. SELECT CENTER OF CORRESPONDING SEARCH AREA 

! 

if ( c.le.MC ) then 

sac(l, number) - C + rdiff(l) 

sac(2,number) = L + rdiff(2) 

sacfl, number) - c + ldifffl) 

sac(2, number) « L + ldiff(2) 
end if 
end if 
c - C + inc 

c write(*,*) number, tpc (1, number) , tpc (2 , number) 

end do 

if ( (c-inc).gt.region2(3) ) region2(3) * C - inc 
L « L + inc 
end do 

I 

I 12 . DISPLAY TOTAL NUMBER OF POINTS 

c call PutoutputF( ' Total %i Points.', number ) 

c call PutoutputFC ' 1 ) 

c leng * UTL$STR_PRINT( str, ' Number of ROI Pairs : %i ' , number ) 

C call UTL$FILE_WRITE( id, str ) 

c write(*,*) ' Total *, number, * Points.' 

c write?*,*) ' ' 

write (id,*) ' Number of ROI Pairs : ', number 

if ( number. gt.O ) ROi_selection » 1 

I - 

! 13. DETERMINE REGION1 AND REGION2 

! 

region2(2) - SL 

region2C4) * L - inc 

regionl(l) = region2(l) + rdiff(l) 

regionim - region2(2) + min( rdi ff (2) , ldiff (2) ) 

regionl(3) - region2(3) + Idiff(l) 

regionl(4) = region2(4) + max( rdiff(2) ,ldiff(2) ) 

I END 

I 

return 
end 

subroutine Find_sidecolumn( L, C, OC, ribcage, N, rim, limit ) 
!»».„»»»...«—--—— „„ = „=„ = „ ===== . = „„„ 
! Ver. 1.0 

I Written by Akiko Kano, Dec. 24, 1992 

I This function determines the start column and the end column on a given 

! line, for selection of centers of ROls. 

! (1) Points are selected inside ribcage curves and in borders outside of 

j the curves. 

I (2) The width of the borders is defined by "rim". If "rim" is a 

! positive value, it means search of an end column (left lung). 
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If "rim" is a negative value, it means search of a start column 
(right lung) . 
(3) Points are not selected outer than "oc". 

ARGUMENTS 

implicit none 

integer*4 Find_SideColumn 

integer*4 L 

integer*4 C 

integer*4 OC 

integer*2 ribcage(2 , 1215) 

integer*4 N 
integer*4 rim 
integer*4 limit 



! Line No. 

! Found column No. 

! Outside Limit on This Line 

! Ribcage Points 

I ribcage(l,*):X, ribcage(2 , *) : V 

! Point No. of ribcage 

I Width of Border Outside Rib-Cage 

! Outside Limit on This Image 



"I 



do while ( ribcage(2 ,N) . It . L ) 

N = N + 1 
end do 

if ( abs(rim) .eg. rim ) then 

C - min( max( (ribcage(l,N)+rim), OC ), limit ) 

else 

C - max( min( (ribcage(l,N)+rim) , OC ), limit ) 
end if 

END 
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File Name : RotAngleByRibcage . C 

Purpose : Detecting lateral inclination angle by using ribcage 
method 



Method 



midline 



: first, we get the middle points of left and right ribcage, 
then fit a line to the points, and take the line as the 



Date 
Author 



: 



5/1/98 

: Li Qiang, University of Chicago 



*****************************************^ 
* * / 



#include <iostream. h> 
#include < f stream . h> 
#include <math.h> 
# include " image . h" 
//#include "xwin.h" 
displaying 



// C++ I/O standard stream definition 

// file stream definition 

// Math definition 

// definition of class IMAGE 

// definition of functions for image 



/*■ 

/* 

/* 

/* 

/* 

/* 

/*■ 



the underbar _ following rot__angle_by__ribcage is 
appended for Fortran 

you should call this function in Fortran by 

call rot_angle_by_ribcage (...) 
Ugly? as a C programmer, YES. However, observe the rule 



-*/ 
*/ 
*/ 
*/ 

*/ 
*/ 

-*/ 



#ifdef KRL_GNU 

#define least_square_ld least_square_ld 

#define rot_angle_by_ribcage rot_angle_Joy_ribcage 

#else 

#define least_square_ld least_square_ld_ 
#define rot_angle_by__ribcage rot_angle_by_ribcage_ 
#endif 



extern "C" void least_square_ld { int 



//a subroutine by 



Kano in Fortran 



float 
float 
float 
float 
float 
float 



*X, 
*Y, 
ScA, 
&B, 

* error , 
&sd err ) ; 



extern " C " void rot_angle_by_ribcage (short 
midline is overlapped to this array 



for debug 

must be 586*586 



*imgarr , 



II 

II used only 



int& 


ncol, // 


array 


size 


intS: 


nlin, 






short 


*RibFeature, 






short 


rribcagel [1215] [2] , 






short& 


rribcage nol, 






short 


lribcagel [1215] [2] , 






short& 


lribcage nol, 






floats 


A, 


// 


OUT: 



coeffi. of y=A*x+B 

float& B, 

floats BestAngle, // OUT: 

angle of midline 

float* BestShift) // OUT: 

shift of midline 

// at Y coor. of (nlin/2) 

{ 

int i ; 

// 

// overlapping ribcage, and 

// its medial axis 

// 

for (i=0 ; i<rribcage_nol ; i++) { 

imgarr [rribcagel [i] [0] + ncol * rribcagel [i] [1]] = 0; 
imgarr [lribcagel [i] [0] + ncol * Iribcagel [i] [1]] = 0; 

} 

#define MAXNO 1000 

float X [MAXNO] , Y [MAXNO] , error [MAXNO] ; 
float sd_err ; 
int mid_no = 0 ; 

// get a set of middle points of ribcage 

for ( i = rribcage_nol/7 ; i < rribcage_nol-rribcage_nol/10 ; i += 5) 

{ 

X[mid_no] = ( lribcagel [i] [0] +rribcagel [i] [0])/2; 
Y[mid_no] = rribcagel [i] [1] ; 
mid_no = mid_no + 1; 

// imgarr [ (lribcagel [i] [0] +rribcagel [i] [0])/2 + ncol * rribcagel 
[i] [1]] =0; 

// imgarr [ (lribcagel [i+1] [0] +rribcagel [i+1] [0] ) /2 + ncol * 
rribcagel [i+1] [1] ] = 0; 

// imgarr [ (lribcagel [i+2] [0] +rribcagel [i+2] [0] ) /2 + ncol * 
rribcagel [i+2] [1] ] = 0; 

// imgarr [ (lribcagel [i+3] [0] +rribcagel [i+3] [0])/2 + ncol * 
rribcagel [i+3] [1] ] = 0 ; 

// imgarr [ (lribcagel [i+4] [0] +rribcagel [i+4] [0])/2 + ncol * 
rribcagel [i+4] [1]] = 0; 

} 

// fit the points to a line 

least_square_ld ( mid_no, Y, X, A, B, error, sd_err ) ; 

// usually, no need to check contents of 'error* and 'sd_err' 
BestAngle = -atan (A) *180 . 0/M_PI ; 
BestShift = (1.0*ncol/2) - ( (nlin/2 ) *A+B) ; 

mid_no = 0; 

for ( i = rribcage_nol/7 ; i < rribcage__nol-rribcage_nol/10 ; i++ ) { 
float j=rribcagel [i] [1] *A+B; 
X [mid_no] = j ; 

Y [mid_no] = rribcagel [i] [1] ; 

imgarr [(int) (X [mid_no] + ncol * Y [mid__no] ) ] = 0 ; 
imgarr [(int) (X [mid_no] + 1 + ncol * Y [mid_no] ) ] =0 ; 
mid_no = mid_no + 1; 

} 



cerr << "MIDLINE : Angle = " << BestAngle << ■■ Shift = " << 

BestShif t << endl ; 

// cout << X[mid_no-l] << " " << Y [mid__no- 1] << " " << X [mid_no- 1] -X 
[0] << " " << 

// Y [mid_no-l] -Y [0] << " " << BestAngle << endl; 



} 



★ * * * 

File Name : rotate. c 

Purpose : rotate an image. Image center is the rotattion center 

Date : Feb. 23,1998 

Author : Li Qiang, University of Chicago 



**/ 

/* */ 

/* the underbar _ following function name is used for Fortran */ 

/* you should call this function in Fortran by */ 

/* call image_rotate ( . . . ) */ 

/* and call it in C by */ 

/* image_rotate ( . . . ) ; */ 

/* Ugly? as a C programmer, YES. However, observe the rule */ 

/* */ 



# include <stdio . h> 
#include <stdlib.h> 
//#include <iostream.h> 
#include <math.h> 



#ifdef KRL_GNU 

#define image_rotate image_rotate 

#else 

#define image_rotate image__rotate_ 
#endif 

extern "C" void image_rotate (short *img, /* image data, saved in a 1- 
D array */ 

int& col, /* image size 

*/ 

int& row, 

floats angle, /* rotation angle 

*/ 

int& blank) /* value for background, usually 0 

*/ 
{ 

register int i, j ; 
float TmpX, TmpY; 
int IntX, IntY; 
float DeltaX, DeltaY; 
float SinV, CosV; 
short *imgl; 

float xO, yO; /* center of rotation */ 

xO = col /2.0; 
yO = row /2 . 0 ; 



/* */ 

/* allocate a new array to contain the result */ 
/* */ 

imgl = new short [col * row] ; 

CosV= cost angle * MJPI/180 . 0) ; 
SinV= sin( angle * M_PI/180.0); 

/* */ 

/* rotation is performed in a backward transform, i.e., */ 
/* for each pixel in the ROTATED image, we calculate its */ 
/* corresponding pixel in the original image, if any, the */ 



/* corresponding pixel is assigned to the pixel in the ROTATED*/ 
/* image, if the backward transformed pixel is out of the */ 
/* original image, assign blank to that pixel */ 
/* In this way, rotation can be performed very EASILY */ 
/* */ 

for (i= 0 ; i< row; i++) 
for (j= 0; j< col; j++) { 

TmpX = xO + CosV*(j-xO) - SinV* (i-yO) ; 

TmpY = yO + SinV*(j-xO) + CosV* (i-yO) ; 

IntX = (int) TmpX; 

IntY = (int) TmpY; 

DeltaX = TmpX - (float) IntX; 

DeltaY = TmpY - (float) IntY; 

if (IntX >= 0 ScSc IntX < col-1 IntY >= 0 IntY < row-1 ) { 
// imgl[i * col + j] = img[IntY * col + IntX] ; 

imgl[i * col + j] = (int) (img[IntY * col + IntX] * (1.0-DeltaY) 

* (1.0-DeltaX) + 

img[(IntY+l) * col + IntX] * DeltaY * 

(1.0-DeltaX) + 

img[IntY * col + IntX +1] * (1.0- 
DeltaY) * DeltaX + 

img [ (IntY+1) * col + IntX + 1] * DeltaY 

* DeltaX + 0.5) ; 

} 

else 

imgl[i * col + j ] = blank; 

} 

for (i= 0; i< row; i++) 
for (j= 0; j< col; j++) 

img[i * col + j] = imgl [i * col + j] ; 



} 



delete imgl; 



SAVE_DATAQ.f 

subroutine Save_DataQ( number, sac, tpc, inc. region2, ncol, nlin, 

DX, DY, CC, FX, FY, filel, file2, lengl, leng2, 



sas. tps, order ) 



Ver. 1.0 

Written by Akiko Kano, 



Apr. 8, 1993 



This function saves shift maps for pair of DX and OY (initial shift 
values) or FX and FY (fitted shift values) as a text file. 

(1) The file format is; 

XI Yl X2 Y2 SHIFTS SHIFT_Y [CC] 

XI : column No. for the center of search area ROI on Imagel 

Yl : Line No. for the center of search area ROI on Imagel 

X2 : Column No. for the center of template ROI on Image2 

Y2 : Line No. for the center of template ROI on Image2 

SHIFT_X : Initial or fitted shift value in X direction for (X2.Y2) 

SHIFT_Y : Initial or fitted shift value in Y direction for (x2,Y2) 

CC : cross-correlation value (only for initial shift values) 

in a file for fitted shift values, xl and Yl are "0" if the point 
(X2,Y2) was not used as a center of a template in local matching. 



(2) Filenames will be; 

(FILEl)-(FILE2)_T(TPSIZE)S(SASIZE)l(DIS)_Q.DAT 

(FILE1) - (FILE2)_T(TPSIZE) S(SASIZE) I (DIS)_F (ORDER) _Q . DAT 

Example : CTSOOlB-CTSOOlA_T32s64ll6_Q.DAT 

CTSOOlB-CTSOOlA_T32S64ll6_Fl0_Q.DAT 

ARGUMENTS 

implicit ™ no 
i nteger*4 
integer*4 
integer*4 
integer*4 
integer*4 
integer*4 
integer*4 
integer*4 
real*4 
real*4 
character 
integer*4 
integer*4 
i nteger*4 
i nteger*4 



Initial 
Fi tted 



Save_Dataq 

number 

sac(2,*) 

tpc(2,*) 

inc 

region2(4) 
ncol, nlin 
DX(M, 0Y(*) 
CCf*) 

FX(ncol ,nlin), 
filel*(*), fi 
lengl, leng2 



! Number of ROI Pairs 

! Centers of Search Areas on Imagel 

I Centers of Templates on Image2 

! Distant Between Centers of ROls 

I Smallest Rect. Area Including tpc 

! Matrix Size of Image Data 

I initial Shift Values 

! Cross-Correlation values 
FY(ncol ,nlin) ! Fitted shift Values 

e2*(*) ! Filenames of Imagel and Image2 

! Length of Filenames 

! Search Area ROI Size (Pixels) 

! Template ROI Size (Pixels) 

! Order of Polynomials for Fitting 



VARIABLES 



character namel*80, name2*80 

integerM idl, id2, namelengl, nameleng2, status 

integer*4 X, Y, C, L, I 

integer*4 id 

common /LOGFILE/ id 



Shige 



external 
external 



fnameLprintq IJpragma c(fnamel_pri ntq) 
f name2_pri ntq IJpragma C(fname2_pri ntq) 
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! 

! 

I 

c 

I 

¥ 

I 

I 

I 

100 
200 



SAVE_DATAQ . f 



integer*4 UTLjFILE_CREATE, utlJfile_close, utlJfile_write,utlJstr_print 



format > 
format i 



6i6, 3x, f8.5 ) 
4i6, 2f9.2 ) 



1. DETERMINE FILENAMES 



call fnamel_printq(filel, file2, namel, tps, sas, inc) 

call fname2_printq(filel, file2, name2 , tps, sas, inc, order) 

2. CREATE FILE(l) 
idl - 7 

open(idl, name ■ namel, err « 300) 
write(*,*) Creating Data File', namel 

write (id,*) ' Data File 1 : '//namel 



3. CREATE FILE(2) 



id2 - 8 

open(id2, name ■ name2 , err » 400) 
write(*,*) Creating Data File ', name2 

write(id,*) ' Data File 2 :'//name2 



4. WRITE DATA(l) 



do 1=1, number 

write ( idl, 100 ) 
1 sac(l,i),sac(2,i), tpc(l.i), tpc(2,i), dx(i), dy(i), cc(I) 

end do 



5. WRITE DATA(2) 



region2p),, region2(4)^inc 

if [ , . .. 

8:3 



do C = region2(l), region2(3), inc 

" ( c.eq.tpc(l,jj .and. L . eq. tpc(2 , I) ) then 



sac( 
sac(; 
I - I + 1 



else 

X - 0 
Y - 0 
end if 

write ( id2, 200 ) x, Y, c t L, fx(C.L), fy(c,l) 
end do 
end do 



6. CLOSE FILES 



call UTLjFILE_CLOSE( idl ) 
call UTLjFILE_CLOSE( id2 ) 
Save_DataQ = 1 
closef idl ) 
close( id2 ) 
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return 
300 continue 

write(*,*) '!!! Data File ', namel, ' not created. !!!' 

return 
400 conti nue 

write(*,*) '!!! Data File name2, ' not created. !!!' 

return 

end 
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subroutine Save_Subtraction_ImageQ (image, ncol, nlin, 

2 DefFile, 

3 Prelmage, Curlmage, 

4 Sublmage) 

Ver. 1.0 

Written by Akiko Kano 



Apr. 8, 

This function saves a image. 



ARGUMENTS 



implicit none 

integerM ncol , nlin 

integer*2 image (ncol , nli n) 

character DefFile*(*) 

character Prelmage*(*) 

character curlmage*fM 

character Sublmage*(*) 



I Matrix size of Image Data 

! Image Data 

I Definition File 

! Previous Image Name 

I Current Image Name 

I Subtracted Image Name 



VARIABLES 

external 

BEGIN 



write_imageq ISpragma C(wri te_imageq) 



call wri te_imageq(image, ncol, nlin , 

1 DefFile, 

2 Prelmage , Cu rlmage , Sublmage) 
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File 
Purpose 
Date 
Author 



: shift. c 

: shift an image in x direction. 
: May 18,1998 

: Li Qiang, University of Chicago 



★ * / 

ftinclude <stdio.h> 
# include <stdlib . h> 
#include <math.h> 

#ifdef KRL_GNU 

#def ine image_shif t image_shif t 

#else 

#define image_shift image_shif t_ 
#endif 



extern "C" void image_shift { short *img, 
array */ 



int *col, 



/* image data, saved in a 1-D 
/* image size 



'/ 



*/ 

*/ 
{ 



int *row, 

float *shift, /* shift value in X direction 



int *blank) 



/* value for background, usually 0 



register int i, j ; 
int TmpX, TmpY; 
short *imgl; 



/* 

/* allocate a new array to contain the result 

/* 

imgl = new short [*col * *row] ; 

for (i= 0; i< *row; i++) 
for (j= 0; j< *col; j++) { 
TmpY = i ; 

TmpX = j - (int) (*shift+0.5) ; 
if (TmpX > 0 ScSc TmpX < *col) 

imgl[i * *col + j] = img [TmpY * *col + TmpX] ; 
else 

imglfi * *col + j] = *blank; 

} 

for (i= 0; i< *row; i++) 
for (j= 0; j< *col; j++) 

img[i * *col + j] = imgl [i * *col + j]; 



*/ 
-*/ 



delete imgl; 

} 



SHIFT_MAP_FITTING_INTP_Y3.f 



function Shi ft_Map_Fitting_Intp(DX, DY.CC, FX, FY, ncol , nli n, i nc , 
number, tpc.sac.region?, WF, order, FITX, FITY, weight , 



npx , npy , tpco , saco , IDX , IDY , ceo , angl e , shi f tmi d , ri Stop , 
iyL_rulel,ixl_rule2,iyl_ru1e2,ix2_rule2 t iy2_rule2, 
i xL.ru! e3 , i th_avgpi x , i magel ,gi veangl e , mi d I i n 



Apr. 9, 1993 



written by Akiko Kano, 
Modified by Taka Ishida, Jan. 5, 1998 
Add comments by Taka Ishida, Dan. 9, 1998 
Bug fixed (Reported by Shige) Taka Ishida, Jan. 29, 
(Replaced tpco by saco in lines 
352,360,361,369,370,371,415,470,551,585,598,611,624) 



i f 1 ag, i terati ve , topi ung , MAXPT, IDX2 , IDY2 , angl ewk , roi avg , 
roisd.histo) 



This function performs a weighted two-dimensional curve fitting with 
N-th order polynomials on shift values DX and DY for the first warping 
i.e., when i terati ve •= 1. 

For the second warping, shift values DX and DY are determined by 
linear interpolation, i.e., when iterative = 2. 

(1) using detected ribcage edges and cardiac edges, lung areas are 
segmentated for determination of weights for surface fitting. 

If the center location of the roi is in the lung area, the weight 
will be 1.00. 

If the center location of the ROI is not in the lung area, the weight 
will be 0.25. (see parameter weightlow) 

Note important modification: The weights are determined according to 
location of ROls, nor from LUT of weighting factors vs cross-correlation 
value . 

(2) Make accumurated shift vector orientation histogram for determination 
of dominant vector. 

If the maximum peak of the histogram is larger than two times of the 
average value of the histogram, the shift vectors within peak plus 
minus 90 degree become dominant vector. 

Otherwise, 0-180 degree will be considered as dominant shift vector. 

(3) Fitting algorithm is based on "TRN2DN" by S. Katsuragawa. Fittings 
are applied only for the center points of templates, shift values 
for other points inbetween are calculated by linear interpolations. 
The surface fitting technique is applied for only first wraping. 
Dominant shift vector or non-dominant shift vector will be used for 



the surfacce fitting. 
If a parameter of giveangle 
the surface fitting, 
if a parameter of giveangle 
for the surface fitting. 



1, dominant shift vector will used for 
. -1, non-dominant shift vector will used 



(4) For the second warping, shift vactor are determined by linear 
interporation. 



<Discription of flag conbi nations> 



First, this subroutine was called from the main subroutine two times 
for determination of two fitted shift-values. 

One is for determination of fitted dominant shift-vector, the other is 
for determination of fitted non-dominant shift-vector. 
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SHI FT_MAP_ FITT I N G_I NTP_Y 3 . f 

Thus, we create two subtraction images. 

Then, we compare with the histogram widths of two subtraction images 
in each lung. 

If the histogram widths of subtraction image in both right and left lungs 
obtained by dominant shift-vector is lower than another, iflag will be 0. 
If the histogram widths of subtraction image in both right and left lungs 
obtained by non-dominant shift-vector is lower than another, iflag will be 

if the histogram widths of subtraction image in only left lungs 
obtained by dominant shift-vector is lower than another, iflag will be 1. 
If the histogram widths of subtraction image in only right lungs 
obtained by dominant shift-vector is lower than another, iflag will be 2. 

In case, iflag is 1 or 2, this subroutine was called from the main 
ubroutine . . , >JB 

again for determination of flipped shift-values, 
otherwise, goto 2nd warping. 



<lst call> 
iterative giveangle 

1 -1 

<2nd cal1> 

1 1 

vectors in R lung 

1 1 

ectors in L lung 

1 -1 

ectors in R lung 

1 -1 
ectors in L lung 

<3rd call> 

2 1 
by using 



iflag 
0 
0 



vectors. 

Vector flip switch 

iflag - 0 -> use dominant orientation 
for fitting. 

iflag - -1 -> Use not dominant orientation 
for fitting. 

iflag - 1 -> switch vector for R lung 
iflag • 2 -> Switch vector for L lung 
Loop counter of warping iteration [I] 



1st warping, Dominant shift-vector 

1st warping, Non-dominant shift-vector 

1st warping, Dominant shift-vector , Flip 

1st warping, Dominant shift-vector , Flip 

1st warping, Non-dominant shift-vector, Flip 

1st warping, Non-dominant shift-vector, Flip 

2nd warping, Final shift-vectors are determined 
linear interporation of all shift 



This function calls; Weighted_Fit_lntp 



implicit none 

integer*4 shi ft_Map_Fi tti ng_lntp 



integer*4 DX(*) , DY(*) 
realM CC(*) 



integerM ncol, nlin 
realM Fxfncol , nl i n) 
realM FY(ncol , nl i n) 



integer*4 FITX(*) , fity(*) 
integer*4 inc 
integerM number 



I Initial shift Values 

I Cross-Correlation Values 

! Matrix size of Image Data 

I Matrix of Fitted shift Value DX 

! Matrix of Fitted shift Value DY 

! Fitted shift Values 

! Distance Increment of ROIs(Pixels) 

! Number of Templates 
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realM 



SHIFT_MAP_FITTING_INTP_Y3 . f 

integerM tpc(2,*) ! Centers of Templates on lmage2 

integerM sac(2,*) ! Centers of SearchROl on Imagel 

integerM region2(4) 1 Smallest Rect. Area including tpc 

ilM wf?2,H) ! LUT of Weighting Factor vs. Cross- 

I Correlation Value [i] 

I Not used in this version.!!!!!! 

integerM order I Order of Polynomials for Fitting [I] 

integerM shi f tmi d, ribtop I Global shift of X and Y [i] 

integerM ixl_rule2 , iyL.rule2 
integerM ix2_rule2,iy2_rule2 
integerM ixX_rule3(2 , nli n) 



-location 

integerM iyLrulel 



(i xL.ru! e2,iyl_rule2) 



I Global shift of X and Y 

I upper-right location of mediastinum 
I Upper-left of left cardiac edge 

! x-locations of cardiac edges 
I ixl_rule3(l,nlin) -> right cardiac 

I i xL.ru! e 3 (2, nlin) -> left cardiac 

! bottom of right cardiac edge 
! cardiac edges are determined by 
! chs_sub.f developed by Taka. 



[I] 



x <-• 

\ 



(ix2_rule2.iy2_rule2) 



iyl_rulel 



integerM ith_avgpix 



integer*2 imagel(ncol , nli n) 
integerM giveangle 



integer*2 midline 
integerM iflag 



integerM iterative 
integer*2 toplung 
integerM MAXPT 



Thretholding level for determination 
of cardiac edges. [O] 
This threshold level is determined 
by histogram analysis of the center 
quadrant area. 

Original Imagel(current image) 
SW for shift vector selection, 

1 -> Dominant shift vector 
-1 -> Non dominant shift vector 
Midline of imagel 
Vector flip switch 

iflag * 0 -> Use dominant orientation 
for fitting. 

iflag = -1 -> Use not dominant orientation 
for fitting. 

iflag «= 1 -> Switch vector for R lung 
iflag = 2 -> Switch vector for L lung 
Loop counter of warping iteration [ 
Y-location of Lung top 
Maximum No. of ROI Pairs 



i ung 

I 



character str*80 
integerM npx, npy 
integerM IDX(MAXPT), 



! MATRIX SIZE OF SHIFT-MAPS 
IDY (MAXPT) ! initial Shift Values by cross-correlation 
I formatted for the rectanglar shift-value 



integerM IDx2(MAXPT), IDY2(MAXPT)! Initial Shift Values by 
Cross-correlation 
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I formatted for the rectanglar shift-value 

map. 

! These are copy of idx.idy. 
integerM tpco(2 , MAXPT) , saco(2 , MAXPT) ! Center location for Template ROI 

I and Search area roi 

! formatted for the rectangler 

center-location maps. 

integerM pstart(2) , dis(2) 

integerM avex, avey ! Average for shift vector ox and DY 

integerM c, L, I, J, N, m 

realM iml 

realM delx, dely, pi 

realM 11. kk 

realM weight (MAXPT) ! Weights for surface fitting 

! formatted for the rectangler weight maps. 

realM cco(MAXPT) ! cross-Correlation Values 

! formatted for the rectangler cc map. 

realM angle(MAXPT) ! Shift vector orientations 

I formatted for the rectangler orientation 

mdP ' realM angl ewk(MAXPT) ! Shift vector orientations arrenged to 

! select dominant vectors easily. 

realM roi avg (MAXPT) I Avg pixel value of ROls. 

realM roi sd (MAXPT) ! Avg SD of pixel value of ROls. 

realM avg.sd ! Avg and SD of roisd(MAXPT) . 

realM weightlow ! weight value for mediastinum area 

integerM histo(MAXPT) I Histogram of roisd(MAXPT) . 

integerM iroisd.inum 

integerM ignorenum I Number of excluding pixels for 

I determination of Avg pixel value of ROls. 

integerM id, leng 
integerM i_X,i_Y 
integerM ion 

realM ohist_r(0: 359) ,ohist_l(0: 359) ! Accumlated shift vector 
orientation 

! histogram for each lung. 

realM vec 

realM imaxhist_r,imaxhist_l ! Peak values of the shift vector 
orientation 

! histogram. 

integerM imaxhist_r_x,imaxhist_l_x ! Peak angles of the shift vector 

! orientation histogram. 

real^ avghist_r,avghist_l ! Avg of shift vector orientation histogram. 

! This is Avg of frequency. 

common /LOGFILE/ id 

I 

! FUNCTIONS 

! — 

c integerM Create_weighting_Factor_Map 

c integerM PutOutputF. im.SsTR_PRI.NT, UTL$FILE_WRITE 

i 

! PARAMETERS 

! 

pi=3. 14159265 
weightlow=0.25 

I 

! 1. DETERMINE THE MATRIX SIZE OF SHIFT-MAPS 

npx » ( region2(3) - region2(l) ) / inc + 1 

npy = ( region2(4) - region2(2) ) / inc + 1 
pstart(l) - region2(l) 
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pstart(2) » region2(2) 
dis(l) « inc 
dis(2) -inc 



2. initialize of dimensions 



do 1-l.MAXPT 
IDX(1)»0 
IDY(l)-0 
IDX2(l)-=0 
IDY2(1)=0 
weight(l)-0.0 
CCo(l)=0.0 
angle(l)=0.0 
anglewk(l)=0.0 
roiavg(l)>=0.0 
roisdfl)=0.0 
histo(l)=0-0 

end do 

do 1=0.359 

ohist_r(l)*0.0 
ohist_l(l)-0.0 

end do 



3. CREATE SHIFT-MAPS 



N - 1 

avex ■ 0 
avey = 0 
do L - 1, npy 
do C - 1, 



I = region2(l) + inc * ( C - 1 ) 
3 - region2(2) + inc * ( L - 1 ) 



3-1. POINTS USED AS CENTERS OF TEMPLATES 



if ( N.le. number .and. 

tpc(l.N) .eq.I .and. tpc(2 ,N) .eq.J ) then 
IDXfc+(L-l5*npx) - DX(N) 
IDY(C+(L-l)*npx) » DY(N) 

tpco(l,c+(L-l)*npx) * tpc(l,N) 
tpco(2 ,c+(L-l)*npx) = tpc(2,N) 
saco(l,C+(L-l)*npx) » sac(l,N) 
saco(2,C+(L-l)*npx) - sac(2,N) 
CCo(C+(L-l)*npx) - CC(N) 

if(CCo(C+CL-l)*npx) .lt.O) cco(C+(L-l)*npx)=0.0 
avex - avex + DX(N) 
avey ■ avey + DY(N) 
N - N + 1 

3-2. POINTS NOT USED AS CENTERS OF TEMPLATES 



IDX(C+(L-l)*npx) « 0 
IDY(C+(L-l)*npx) - 0 



tpcofl, C+(L-l)*npx) 
tpco(2 ,c+(L-l)*npx) = 0 
saco(l,C+(L-l)*npx) - 0 
saco(2,C+(L-l)*npx) - 0 
cco(c+(L-l)*npx) =. 0.0 
end if 
end do 
end do 
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avex - avex / number 
avey - avey / number 

! Preparation for segmentation of lung area. . 

I Determine average pixel value and SD of the pixel value for ROls of imagel 

! 

do i-l,MAXPT 

roiavg(i)=0.0 

roisd(i)«=0.0 

weight(i)-1.0 

end do 

do i-l,MAXPT 

if(tpco(l,i).ne.0.and.tpco(2,i) .ne.O) then 
ignorenum*0 
do m-saco(2,i)-16,saco(2,i)+16 
do l=saco(l,i)-16,saco(l,i)+16 
ifCm.lt.l. or. tn.gt.nl in) then 
i gnorenum-i gnorenum+1 

else 

i ml=f 1 oat (i magelp , m) ) 
roi avg (i ) =roi avg (i )+i ml 
end if 
end do 

ro\avg(i)-roiavg(i)/(33.0*33.0-ignorenum) 
end if 
end do 

do 1=1,MAXPT 

if (tpco(l,i) .ne.O. and. tpco(2 ,i) .ne.O) then 
ignorenum^O 
do m=saco(2,i)-16,saco(2,i)+16 
do l=sacoCl,i)-16,saco(l,i)+16 
if Cm.lt. 1. or. m. gt.nl in) then 
i gnorenum=o gnorenum+1 

else 

iml=float(imagel(l ,m))-roiavg(i) 
roi sd(i)*roisd(i)+W**2 
end if 
end do 
end do 

roisd(i)=sqrt(roisd(i)/((33.0*33.0-ignorenum)-l)) 

else 

weight(i)*0.0 

end if 
end do 

! Determination of histogram of SD for ROls 

! 

i num-0 

do i-l.MAXPT 

i f (tpcoCl, i ) . ne . 0 . and . tpco(2 , i ) . ne . 0) then 

' area #1 

if(saco(2,i).gt.iyl_rulel) then 

i nums«i num+1 

i roi sd-i nt(roi sd(i)) 

hi sto(i roisd)«histo(i roi sd)+l 
end if 

! — — — 

) area #2 

I 
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if (saco(l.i) .ge.ixl_rule2.and.saco(l,i) . It . i x2„rule2 . 
& and.saco(2,i) .It,iy2_rule2) then 

inum=inum+l 
iroisd-int(roisd(i)) 
histoCi roisd)=histo(i roisd)+l 
end if 

! 

I area #3 

i f (saco (2 , i ) . ge . i y2_rul e2 . and . saco(2 , i ) . 1 1 . i yl^rul el . 
& and.sacoCl.i) .ge.ixl_rule3(l,saco(2 , i )) . and . 

& sacoCl,i).1t.ixl_rule3(2 l saco(2,i))) then 

i num-i num+1 
iroi sd=i nt(roisd(i)) 
hi sto(i roi sd) -hi s to(i roi sd) +1 
end if 

end if 
end do 

\ 

i Determination of average and SD of histogram of SD within ROls. 

! 

avg-0.0 

do l-l.MAXPT 

avg-avg+float(histo(l)*l) 
end do 

avg=avg/float(i num) 
sd-0.0 
do l-l.MAXPT 

sd-sd+((f1oat(l)-avg)**2)*float(histo(1)) 
end do 

sd-sqrtCsd/floatCinum-l)) 
c write(*,*) avg.sd.'www' 

! Determination ROls within lung area 

! If ROI is located in lungs, weight(i)»1.0 

! othwise, weight(i)=0.0 

do i=l,MAXPT 

i f (tpco(l , i ) . ne . 0 . and . tpco(2 , i ) . ne . 0) then 

! area #1 

I 

if (saco(2 ,i) .gt.iyl_rulel) then 
i f (roi avg (i ) . gt . i th_avgpi x . or . ro1 sd(1 ) . 1 1 . avg+sd) then 

weight(i)*weightlow 
else 

weight(i)=1.0 
end if 
end if 

! 

area #2 

if (saco(l,i) .ge.ixLrule2 .and.saco(l,i) . It.ix2_rule2 . 
& and . saco (2,i).lt.iy2_rule2) then 

if(roiavg(i).gt.ith_avgpix.or.roisd(i) . It. avg+sd) then 
weight(i)=weightlow 
else 

weight(i)*1.0 
end if 
end if 
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if(saco(2,i).ge.iy2_rule2.and.saco(2,i).lt.iyl v _rulel. 
and.saco(l.i).ge.ixl_rule3(l,saco(2,i)) .and. 
saco(l,i).lt.ixl_rule3(2.saco(2,i))j then 
i f (roi avg(i j> . ^t . i th_avgpi x . or . roi sd (l ) . 1 1 . avg+sd) then 



else 

weight(i)»1.0 
end if 
end if 



area #4 



if(saco(2,i) .gt.iyU.rulel+50) then 
weight(i)=weightlow 



end if 
end do 

° write?* ,998) (weight(L+(c-l)*npx) , 1-1, npx) 
end do 



Determine angle of shift vectors for each ROI 



do l = l, npy 

do c = 1, npx 

i_X=IDX(c+(L-l)*npx)-shiftmid 
i_Y=iDY(c+(l-l)*npx)-ribtop 
delx-floatCi^X) 
dely«float(i_Y) 

angle(C+(L-l)*npx)«atan2(-dely,-delx)/pi*180.0 
i f I angl e (c+(L-l) *npx) .lt.O.) 
angle(C+(L-l)*npx)=360.0 + angle(C+(L-l)*npx) 



iffangle(C+(L-l)*npx).ge.360.) 
angle(C+(L-l)*npx)= angle(C+CL-l)*npx) - 360.0 



end do' 
end do 



ifCiterative.ge.2) goto 55S5 



Make shift vector weighted vector orientation histogram 

do i»l,MAXPT 

if (weight(i) .eq.1.0) then 
if (tpco(l,i) . ne.O. and. tpco(2 ,i) .ne.O) then 
if(saco(l,i). It. midline) then 
iori»i nt(angle(i)) 
t(float((IDX(i)-shi ftmid)**2+(lDY(i)-ribtop)**2)) 
ohist_r(ion)=ohist_r(iori)+vec 
else 



vec=sqrt( 



lon-i nt(angie(-i;) 
-sqrtCfloat((IDX(i)-shiftmid)**2+(lDY(i)-ribtop)**2)) 
ohist„l(iori)=ohist_l(iori)+vec 



end if 
end if 
end do 



Determination of the peak of shift vector orientation histogram 
avghist_r=0.0 



Page 8 



SHIFT_MAP_FITTING_INTP_Y3 . f 
avghi st_l-0.0 
imaxhist_r=»-1000.0 
imaxhist_l=-1000.0 
do i-O.330,30 

1U0.0 

do i«0,29 

ll=1l+ohist_r(i+j) 

end do 

if (11 .gt.imaxhist_r) then 
i maxhi st_r=ll 
i maxhi st_r_x»i 

end if 

11-0.0 
do i-0,29 
n-1l+oMst_l(i+j) 
end do 

if(ll .gt.imaxhist_l) then 
imaxhist_l=l I 
i maxhi st_l_x«i 

end if 

11-0.0 
kk=0.0 



do U0.29 
ll=1l+ohist_r(i+j) 
kk«kk+ohist_l(i+j) 



end do 
avghi st_r=avghi st_r+l 1 
avghi st_l*avghi st Jl +kk 
end do 

avghi st_r«avghi st_r/12 . 0 
avghi st_l -avghi st_l/12 . 0 

open(l,file='hist_R') 
do i=O.330,30 
11=0.0 
do i«0,29 
ll«1l+ohist_r(i+j) 
end do 

writeCl,*) i,int(ll) 
end do 

close(l) 

open(2,file=.'hist_L') 
do i«0, 330,30 
kk-0.0 
do i-0,29 
kk-kk+ohist_l(i+j) 
end do 

write(2 ,*) i ,int(kk) 

end do 

close(2) 



If peak level is less than avghist_r*2, 



0-180 -> Dominant, 
180-360 ~> Non dominant. 



i f (avghi st_r*2 . gt . i maxhi st_r) i maxhi st_r„x«=90 
i f (avghi s t_l *2 . gt . i maxhi st_l ) i maxhi st_l_x-90 



Determination weights based on shift vector analysis 

do i=l,MAXPT 
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if (tpco(l.i) .ne.0.and.tpco(2,i) .ne.0) then 
if(weight(i). eq.1.0) then 
if (saco(l t i) . It. midline) then 
ang1ewk(i)»angle(i)-(imaxhist_r_x-90) 
if (anglewk(i) .lt.0) anglewk(i)»anglewk(i)+360 
if (anglewk(i) .ge.360) anglewk(i)»anglewk(i)-360 
else 

angl ewk(i 1 =angl e(i 1 - (imaxhi st_l_x-90) 
if(anglewkm.lt.O) anglewk(i)-anglewk(i)+360 
if(anglewk(i). ge-360) anglewk(i)«anglewk(i)-360 

end if 

end if 
end if 

end do 

i f (gi veangl e . eq . 1 . and . i f 1 ag . eq . 0) then 
do i«l,MAXPT 
i f ( tpco (1 , i ) . ne . 0 . and . tpco(2 , i ) . ne . 0) then 
if(weight(i). eq.1.0) then 

if(anglewk(i).ge.l80) weight(i)=0.0 
end if 
end if 
end do 

end if 

i f (gi veangl e . eq . -1 . and . i f 1 ag . eq . 0) then 
do i=l,MAXPT 
if (tpco(l,il ,ne.0.and.tpco(2 ,i) .ne.0) then 
if(weight(i) .eq.1.0) then 

if(anglewk(i) .It. 180) weight(i)«0.0 
end if 
end if 
end do 

end if 

if (giveangle.eq.l.and.iflag.eq.l) then 
do i=l,MAXPT 
if(tpco(l,i) .ne.0. and. tpco(2,i) .ne.0) then 
i f (wei ght(i). eq.1.0) then 
if(saco(l,i) .It. midline) then 

i f (angl ewk (i ) . 1 1 . 180) wei ght (i )«0 . 0 

else 

if(anglewk(i).ge.l80) weight(i)=0.0 
end if 
end if 
end if 
end do 

end if 

if (giveangle.eq.-l.and.iflag.eq.l) then 
do i-l.MAXPT 
if (tpco(l,i) .ne.0. and. tpco(2 ,i) .ne.0) then 
if(weiqht(i). eq.1.0) then 
if(saco(l,i). It. midline) then 

if(anglewk(i).ge.l80) weight(i)=0.0 

if(anglewk(i).lt.l80) weight(i)=0.0 
end if 
end if 
end if 
end do 

end if 

i f (gi veangl e . eq . 1 . and . i f 1 ag . eq . 2) then 
do i*l,MAXPT 
if(tpco(l.i) . ne.0. and. tpco(2,i). ne.0) then 
if(weight(i). eq.1.0) then 
if(sacoU.i). U. midline) then 
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i f (angl ewk (i ) . ge . 180) wei ght (i ) -0 . 0 

i f (angl ewk (i). It. 180) weight(i)»0.0 
end if 
end if 
end if 
end do 

end if 

if (gi veangl e.eq. -Land, i flag. eq. 2) then 
do i«l,MAXPT 
if (tpco(l,i). ne.0. and. tpco(2,i) .ne.0) then 
if (weignt(i) .eq.1.0) then 
if (saco(l.i) • It. midline) then 

if (angl ewk (i) .It. 180) weight(i)=0.0 

else 

i f (angl ewk (i ) .ge. 180) weight(i)=0.0 
end if 
end if 
end if 
end do 

end if 
continue 

5. FITTING AND INTERPOLATIONS 

if(iterative.eq.l) then 

call Weighted_Fit_Prepare( npx, npy, order, weight ) 
end if 

do i«l,MAXPT 

IDX2(i)*IDX(i} 
IDY2(i)=IDY(i) 

end do 
if (iterative. eq.l) then 
write(* *) "...Fitting shift Value DX. ' 

call weighted_Fit_lntp( IDX2, FX, npx, npy, ncol , nlin, pstart, dis, 
1 order, avex, weight, FITX) 

write(* *) '...Fitting shift Value DY.' 

call weighted_Fit_lntp( IDY2 , FY, npx, npy, ncol, nlin, pstart, dis, 
1 order, avey, weight, FITY) 

else 

write(*,*) '...Fitting Shift value DX. ' 

call Weighted_nofit_lntp( IDX2 , FX, npx, npy, ncol, nlin, pstart, dis, 
1 order, avex, weight, FITX) 

write(*,*") "...Fitting shift Value DY. ' 

call Weighted_nofit_Intp( IDY2, FY, npx, npy, ncol, nlin, pstart, dis, 
1 order, avey, weight, FITY) 

end if 



6. WRITE PARAMETERS 



leng « UTLjSTR_PRINT( str, 
call LPTL JFILE_WRITE( id, 



Fitting by %2ith Order', order ) 
str ) 

leng - UTL$STR_PRINT 

1 ( Str, ' (%4.2f,X4.2f)-(%4.2f,5M.2f)-(X4.2f,%4.2f)-(X4.2f,X4.2f)' , 

2 WF(1,1),WF(2,1).WF(1,2),WF(2.2),WF(1,3),WF(2,3),WF(1,4) ( WF(2,4) ) 
call UTL$FILE_WRITE( id, str ) 

write(id,*) * Fitting by ', order, 'th Order' 
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write(id, FMT - ' (F4.2 , F4.2)-(F4.2 , F4.2) ' 



.2)-(F4.2,F4.2)-(F4.2,F4.2)-F(4.2 
F(l,l), WF(2,1), WFfl,21, WF(2,2) 
F(l,3), WF(2,3), WF(1,4), WF(2,4) 



2.F4.2) 1 ) 



*************** 



This subroutine is not used in this version. 



subroutine 
1 



Create_weighting_Factor_Map( number 
i nc , reg 



, tpc, CC, WF, npx, 
iion2 , weight ) 



Ver. 1.0 

Written by Akiko Kano, 



Dec. 29, 1992 



This function creates a weighting factor map with the size of npx x npy. 

(1) Weighting factors for fitting are determined based on CC, using the 
LUT given by "WF". 

(2) Points which were not used as centers of templates are given with 
weighting factor "0". 



implicit none 

i ntegerM Create_Wei ghti ng_Factor_Map 



integer*4 number 
integer*4 tpc(2,*) 
real*4 CCf*) 
real*4 WF(2,11) 

integer*4 npx, npy 

integer*4 inc 

integer*4 region2(4) 

real *4 wei ght (npx , npy) 

integer*4 LEVEL, iwk 



! Number of Templates 
! Centers of Templates on Image2 
! Cross-correlation Values 
! LUT of Weighting Factor vs. Cross- 
! Correlation Value 
! Matrix Size of Shift-Map 
! Distance Increment of ROls(Pixels) 
I smallest Rect. Area Including tpc 
! Weighting Factor 



VARIABLES 



parameter (LEVEL-1000) 
integer*4 c, L, I, 3, N 
real*4 IWF(0:LEVEL) 



BEGIN 



call Interpolate_LUT_ J Adpt( LEVEL, WF, IWF ,CC, npx, npy) 
N - 1 

do L ■ 1, npy 

do C - 1, npx 

I = region2(l) + inc * ( c - 1 ) 
3 = region2(2) + inc * ( L - 1 ) 
if ( N.le. number .and. 
1 tpc(l.N) .eq.l .and. tpc(2 ,N) . eq . 3 ) then 

weight(C.L) = IWF( i nt(CC(N)*float (LEVEL)) ) 
N = N + 1 

else 

weight(C.L) = 0.0 
end if 
end do 
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END 
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| 



************* 
This subroutine is not used in this version. 

r************************************************** 

subroutine Interpol ate_LUT_^dpt( level, WF, IWF, CC, nx, ny ) 



Ver. 1.0 

written by Akiko Kano 



Dec. 29, 1992 

This subroutine interpolates a lut for weighting factors. 



implicit none 
integer*4 level 
realM WFC2.11) 

real*4 IWF (0: level) 
real*4 cc(*) 
integer*4 nx 
integer*4 ny 



! NO. of Levels [I] 
! LUT of weighting Factor vs. cross- 
! correlation value 
! interpolated LUT 
! Cross-Correlation value 
! Columns of ROIS ,1, 
! Rows of ROIs [I. 



VARIABLES 



integer*4 ic(ll) 
integerM N, I, 3 
realM MAX_CC, min_cc 
integer*4 H_CC(100) 
integerM count 
integer*4 H_level 
integer*4 H_sum, SUM 
integer*4 Pi, P2 , Hi, H2 
parameter (Pi - 60, P2 - 80) 



MAX_CC = 0.0 
MIN_CC -1.0 

do I - 1, 100 

H_CC(I) - 0 

end do 

count = 1 

do I « 1, ny 

do 3 - 1, ny 

H_level * 100*CC(count) 
write(*,*) 'H_level =* '. H_level 
if(H_level .lt.l) H_level«l 
H_CC(H„level) - H_CC(H_level) + 1 
count = count + 1 
end do 

end do 

sum * 0 

do I » 1, 100 

SUM - SUM + H_CC(I) 
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SHI FT_MAP_F ITTI NG_I NTP_Y 3 . f 

writeC*,*) ■hjCcCM.') - ', h_cc(i), * 



H_sum - 0 
I - 1 

Hi - int( float(Pl)*SUM/100) 
do while ( H_sum .It. Hi ) 

H_sum - H_sum + H_cc(I) 

I • I + 1 
end do 

WF(1,2) - (l-l)*0.01 
write(*,*) PI, •% - ' . WF(1,2) 

H2 - int( float(P2)*5UM/100 ) 
do while ( H_sum .It. H2 ) 
H_sum - H_sum + H_CC(I) 
I - I + 1 
end do 



F(l,3) = (I-l)*0.01 
rite(\*) P2, '% - 



write(*,*) 'HI 
0 



WFC1.3) 
HI, ' H2 . 



IC(1) « 
N = 1 

do while ( WF(1, N) . 1 t.1.0 ) 

IC(N) = intC float(level) * WFCl.N) ) 
end do 

IWF(0) = WF(2,1) 
do I = 1, N-l 

do 3 - icCD+l, 



end do 
end do 



IWFO) = WF^l) 

+ 0 ' " 



IC(I+1) 

,2,1) 

;WF(2,I+1)-WF(2,I)) 



O-ic(i)) / (ic(i+l)-icci)) 
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smooth. f 

c============================================= : 



subroutine smooth (x,n,s) 

c 

c smooth by using moving average 

c input: s range for average(odd number) 

c n No. of elements 

c x(n) input data & output data 

c 

c 1/24/92 Hong Dia 

c Based on Shige's fax program 12/20/91 
c 



integer*2 n,s,w,i , j ,k 

integer*2 bl,b2 

real*4 x(n) ,y(512) , sum 

c 

c Smoothing 

c 

w=s/2 

bl=w+l 
b2=n-w 

do i=bl,b2 
sum=0.0 
do j=l,s 

sum=sum+x(i -w+j-l) 
end do 

x(i)=sum/float(s) 
end do 

c do i=bl,b2 

c x(i)=y(i) 
c end do 

return 
end 
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sobel2.f 



sobel filter 

subroutine sobel2(ip,sb,id,ix,iy,iv) 

ip(ix,iy) : input image [I 

sb(ix,iy) : sobel output [0 ; 

id(ix,iy) : orientation output [0 ; 

ix,iy : matrix size of x and y [I 

iv : cwinterval for sobel operation [I 

implicit integerM (i-n) 
integer*2 ip(ix,iy) ,sb(ix,iy) 
realM id(ix,iy) 

pi=3. 14159265 



Sobel filtering 



do 50 j=iv+l,iy-iv 
do 40 i=iv+l,ix-iv 

dxl=2*ip(i-iv,q)+ip(i-iv,q-iv)+ip(i-iv,q+iv) 
dx2=2*i p (i +i v , ] ) +i p (i +i v , j - i v) +i p (i +i v , j +i v) 
dx=dx2~dxl 

dyl=2*ip(i , j+iv)+ip(i+iv,q+iv)+ip(i-iv, j+iv) 
dy2=2*ip(i , j-iv)+ip(i+iv, ]-iv)+ip(i-iv,]-iv) 
dy=dy2-dyl 

sb(i , j)=nint(sqrt(dx*dx+dy*dy)) 

id(i ,j)=atan2(dy,dx)/pi*180.0 

if(id(i , j).lt.0.) id(i ,j)=360.0+id(i ,j) 

continue 
continue 



return 
end 
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Utilities for Temporal Subtraction 
Coded by Shige 
Following functions are included. 



void 
int 
char 
void 
int 

studyPara 

void 

NumTime 

TexTime 

int 

InputlmageFormat 

GenStand 

void 

void 

void 

void 

void 

void 

void 

void 

void 

void 

void 

void 

void 



getDirectory 
trimcha 
•getExtension 
cleanString 
wsplit 

ReadTSubDef File 

Che ckDef File 

GetNumTime 

GetTexTime 

getFileSize 

get I mage Format 

getGenStandlnfo 

getSFCRlmage 

getSDCMImage 

getSTHV Image 

getSNOH Image 

getSJDBImage 

getSGENImage 

getCFCRImage 

getCDCMImage 

getcTHVImage 

getcNDHlmage 

getCJDBImage 

getCGENimage 

getoDCMlmage 



//short image 
//short image 
//short image 
//short image 
//short image 
//short image 
//unsigned char image 
//unsigned char image 
//unsigned char image 
//unsigned char image 
//unsigned char image 
//unsigned char image 
//original image reduced 



include 
♦♦include 
♦♦include 
♦♦include 
♦♦include 
(♦include 
^include 



<string . h> 
<stdlib.h> 
<ctype.h> 
«time .h> 
<math. h> 
"TempSub.H" 



/*— * ........ 

Name : getDirectory 

Function : Get Directory 
Date ; 04/30/98 



void getDirectory(char *dir, char *fname) 



char 

unsigned int 



c -'/',- 
pi - fname; 

p2 » strrchr (fname, c> ; 

if (p2 NULL) strcpy(dir 
else { 

n - (int) (p2 - pi ♦ 1) ; 

strncpyldir, fname, n) ; 

dirln] = 0; 

} 



Name : trimcha 

Function : Trim string between two characters (last cl and first c2) 

Input s_source: string to be trimmed 
cl, c2 ! two characters 

Output s_dest ; Output string 
Usage : int trimcha (s_dest, e_source, ci, c2) 
Return : Number of Characters for Output string 
Author : shige 

Date : 8/4/96 

- = */ 

int trimcha (char *s_dest, char *s_source, char cl, char c2) 

char r0{i28], rl [128] , r2 [128) ; 

int nchar; 



if (strrchr (s_source, cl) 
else 



NULL) strcpy(ri, s_source>; 

strcpyfrl, strrchr (s^source , cl) + 1); 



if (strchr(s_source, c2) -> NULL) { 
nchar . etrlen(rl); 
} 

else { 

strcpy(r2, strchr ( s_source , c2) ) ; 
nchar - strlen(rl) - strlen(r2); 
} 

if (nchar < l) { 
nchar «= o ,■ 
return(nchar) ; 



strcpy(8_dest, rl) ; 

* (s_dest + nchar) » NULL; 

return(nchar) ; 



Name : getExtension 

Function : Get Extension 
Input s fname 

Output : ext and return value (pointer) 

Usage Example : char Extension [60] , 

[Extension - ] getExtension(Extension, FName); 
or 

printf C%s n , getExtension (Extension, FName) ; 
Date : 04/30/98 



«•/ 
char 
{ 

char 
int 



*getExtension(char *ext, char *fname) 



nc - strlen( fname) ; 
pi « fname; 

p2 - strrchr (fname, c) ? 

if <p2 == NULL) ext [0] - 0; 
else { 

n - (int) (pa - pi + 1) ; 
m » nc - n + l; 

for (i - 0; i < m; i* + ) extti] - f name [n - 1 + i] ; 

ext [m] - 0; 

} 

return ext; 
) 

/* 

Name : cleanString 

Function : (l) Remove characters except for printable 

(2) Remove heading spaces and tabs 

(3) Remove ending spaces and tabs 
[I]/[0] : *PatName 

Date i 11/05/98 



void cleanString (char *PatName) 
int i, c, n; 

n - strlen { PatName ) ; 

c ■ 0; 

for (i • 0; i < n, i+ + > { 

if {(isprint(PatName[i) ) !- 0 && PatName [i] > 0) j | 
isspace(PatName[i] ) !» 0) 
PatName {C+ + ] - PatName [i] ; 



} 

PatName [c] - 0; 



for (i - 0; i < n; i++) { 

if {isspace (PatName [i] ) !» 0) PatName [i] - 0; 
else break; 

for (i»n-l;i>-0;i--) { 

if (isspace (PatName [i] ) !- o) PatName [i] - o ; 
else break; 



C = 0; 

for (i - 0; i < n ; i++) { 

if (PatName [i] != 0) PatName [c+ + ] - PatName [i] ; 
} 

PatName [c] *= 0; 



To split words from a character buffer 
Return (int) Number of Words 



CR(\n) character is removed. 

Address of each word is put in arg_v[] 

int arg_c - wsplit (str, str_buf, arg_v) 

arg_c Number of words 

str Buffer containing many words 

str_buf Work Buffer separated with NULL 

arg_v[] Addresss of each word 

4/19/95 coded by SHIGE 
6/07/9S modified by SHIGE 

(♦define ARG__IN 0 

(♦define ARG_0UT l 

(♦define MAXSIZE 1024 

int wsplit (char *str, char *str buf, char *arg_v[]) 
{ 

int i, j, flag; 
char c; 
char *str_p; 

str_p - etrcpy(str_buf , str); 

for [ i * j - 0, flag - ARG_0UT ; i < MAXSIZE ; i++ ) { 
C - * (str_p + i) ; 
if ( c -- '\0> | | c -- '\n') { 

* (str_p + i) - NULL, 

arg_v[j) - NULL; 

break; 

} 

if ( c «- • • | | c -- «\t' ) { 

* (Btrj + i) « NULL; 
flag - ARG_OUT; 
continue; 
) 

if ( flag -« ARG_OUT ) { 
arg_v[j + + ] - str_p + i; 
flag - ARG_IN; 
continue ; 
} 



Read Definition File of Temporal Subtraction 
INPUT DEf . File Name 

OUTPUT StudyPara defined in workstation. h 

11/16/98 code by Shige 

StudyPara ReadTSubDef File (char *DefFile) 
{ 

FILE *fp, 
StudyPara studyPara; 

int wsplit (char* , char« , char**); 
char Str [MAXSIZE] , atr_buf [MAXSIZE] , 
int nword; 



Char *str_p (100) ; 



open DefFile 



if <(fp - fopen(DeEFile, 'r"l ) »> 0) { 

printf ("\7\7*a is missing \n H , DefFile) / exit(o); 



Read line by line 



while < (fgetslstr, MAXSIZE, fp) ) !» o) { 
if <str[0] — '\\') break; 
if (strfo] « ) continue; 

if (str[0) '\n') continue; 



Word Split 



nword » wsplit(str, str_buf, str_p) ; 
if (nword < 2) continueT 



InputlmageFormat 



if ( (strcmp (str_p [0] , "InputlmageFormat")) -« 0} { 

if ( (strcmp <Str_p[l] , "IN PUT_STANDARD_FCR_HEADER " ) ) 

Study Para. input I mage Format = INPUT_STANDARD_FCR_HEADER ; 
else if ( (strcmp (atr_p[l) , "INPUT_DICOM_FCR_HEADER") ) « = 0) 

studyPara. input I mage Format - iNPUT_DICOM_FCR_HEADER; 
else if ( (strcmp { str_p 111," input_dicom_THV_HEADER" ) ) 0) 

studyPara. input I mage Format - INPUT_DICOM_THV_HEADER ; 
else if ((strcmp<str_p[ll,"INPUT_NON_HEADER»>> 0) 

studyPara. input I mage Format - INPUT_NON_HEADER; 

else { 

printf ("Wrong inputlmageFormat in %s\n", DefFile); exit(o); 



} 



} 



Matrix Size 



( (8trcmp(str_p [0] , "NoOf Column" ) ) »- 0) 

studyPara. col - atoi ( str _p [1 ] ) ,- 

( (strcmp (str_p [0] , "NoOf Line " } } 0) 

BtudyPara.lin - atoi (str_p(ll ) ; 



Output Image Format 



f < (strcmp (str_p [0] , "OutputlmageFormat")) == 0) { 
if ( (strcmp (strp [13 , "OUTPUT_STANDARD_FCR_HEADER") ) >- 0) 

studyPara .OutputlmageFormat « oUTPUT_STANDARD_FCR_HEADER; 
else if ( (Strcmp (str_p(l] , "OUTPUT_DICOM_THV_HEADER") ) « 0) 

studyPara .OutputlmageFormat - output_Dicom_THV_HEADER; 
else if ( ( B t r cmp { 8 1 r_p [ 1 ] , " OUT PUT_NON_H E ADER " ) ) =- 0) 

studyPara. OutputlmageFormat - OUT PUT_NON_HE ADER ; 

else { 

printf ( "Wrong OutputlmageFormat in %s\n", DefFile); exit(0); 



- •/ 

if ( (strcmp(Btr_p [0] , "SubFName")) 0) { 

if ( (strcmp (str_p [l] , "SUB_FNAME_FIX" ) ) 0) 

studyPara. subFName - SUB_FNAME_FIX ; 
else if ( ( strcmp (str_p (11 , "SUB_FNAME PATIENT_ID" ) ) « 0) 

studyPara. subFName - SUB_FNAME_PATIENT_ID; 
else if ( <Strcmp(Btr_p[l] , "SUB_FNAME_PATIENT_NAME_LONG" ) ) «- 0) 

StudyPara. subFName - SUB_FNAME_PATIENT_NAME_LONG; 
else if ( <atrcmp(8tr_p (1] , "SUB_FNAME_PATIENT_NAME SHORT")) 0) 

studyPara. subFName - sub_FNAME_PATIENT_NAME_SHORT; 
else if ( (strcmp (atr_p 1 1] , "SUB_FNAME_PATIENT_ID_DATE") ) -«= 0) 

StudyPara. SubFName » SUB_FNAME_PATIENT_ID_DATE; 
else if ( ( strcmp ( Str_p [1] , "SUB_FNAME_COMMAND_LINE" ) ) 0) 

studyPara. subFName = SUB_FNAME_coMMAND_LINE; 

else { 

printf ("Wrong SubFName in %s\n", DefFile); exit(o); 



SubFixFName 



if ( (atrcmp(strjp [o] , "SubFixFName")) 0) 

strcpy (studyPara. subFixFName, str_p[l] ) ; 



DensityCorrect 



if ( (strcmp (str_p [oj , "DensityCorrect ion" ) ) «- o ) { 
if ( (strcmp ( str_p 111 , "OFF" ) ) »» 0) 

studyPara. dens ityCorrect ion » OFF; 
else if ( ( strcmp (str _p (1] , "ON" ) ) == 0) 

studyPara. densityCorrection * ON; 

else { 

printf ( "Wrong DensityCorrection in %s\n", DefFile); 



) 



DenCorLutDir 



if ( (strcmp(str_pl0) , "DenCorLutDir")) 0) 

strcpy(studyPara .denCorLutDir, str_p [1] ) ; 



PreDi rectory 



if ( (strcmp(str_p(o] , "PreDirectory" ) ) — o) 

strcpytstudyPara. preDirectory, str _p[ll); 



CurDirectory 



if ( (strcmp(str_pIo) , "CurDirectory")) »- o) 

strcpy (studyPara. CurDirectory, str jpU])/ 



SubDirectory 



if ( (strcmp (str_p[o) , "SubDirectory")) « 0) 

strcpytstudyPara. SubDirectory, str_p(ll ) ; 



Combination 



if ( (strcmp(Btr_p(0] , "Combination' 1 )) 0) { 

if ( ( atrcmp ( str_p [ 1 } , "SINGLE_COMBINATION" ) ) = 

studyPara. combination - SINGLE_COMBINATION ; 
else if ( (strcmp (3tr_p(l] , "MULTI_COMBINATION") ) -=» 0) 
studyPara. combination - muLTI_combination ; 



ela 



{ 

printf ( "Wrong Combination in %s\n", DefFile); exit(O); 



if ( (strcmp (str_p [o] , "IniDirectory" ) ) o) 

strcpytstudyPara . iniDirectory, str _p[l]>; 



Rescue Program 



if ( (atrcmp (strjp (ol , "RescueProg " ) ) 0) { 
if ( (strcmp ( s t r_p [i] , "OFF" ) ) o) 

studyPara . reecueProg = OFF; 
else if ( (strcmp (str_p 111 , "ON" > ) -= o) 
studyPara. rescueProg - ON; 

else { 

printf < "Wrong RescueProg in %s\n", DefFile); 



SublmageTransf er 



if < (atrcmp (str_p [0] , "SublmageTransf er" ) ) -» 0) { 
if ( (strcmp (str _p (1] , "OFF" ) ) — 0) 

studyPara . aublmageTransf er « OFF/ 
else if ( (strcmp (str_p [l] , "ON") ) 0) 

studyPara. SublmageTransf er - ON; 

else { 

printf ( "Wrong SublmageTransf er in *s\n", DefFile); exit(O); 



} 



OrglmageTransf er 



if < {strcmp (strjp [0] , "OrglmageTransf er" ) ) -<■ 0) { 
if ( (strcmp(Btr_p [11 , "OFF") ) -» o) 

studyPara. orglmageTranBfer «= OFF; 
else if ( (strcmp ( atr_p [l] , "ON" ) ) -» o) 

studyPara. OrglmageTransf er ■ ON; 

else { 

printf ( "Wrong OrglmageTransf er in %s\n", DefFile); exit(o); 



SubDispPara 



if ( (strcmp(atr_p{0] , "SubDispPara")) « 0) { 

if ( ( strcmp { str_p [l] , "BLACK_OUT" } ) o) 

studyPara . subDispPara = BLACK_OUT; 
else if ((atrcmp(atr _p [ l J , "OPTIMAL CHEST" ) ) -= o) 
studyPara. aubDispPara - OPTIMAL_CHEST; 

else { 

printf ("Wrong SubDispPara in %s\n", DefFile); exit(o); 



) 



PreDispPara 



if ( (strcmp(str_p[o] , "PreDispPara")) o) { 

if ( ( atrcmp ( atr_p [1] , "BLACK_OUT" } ) 0) 

studyPara .preDispPara * BLACKOUT,- 
else if ( (Btrcmp(str_p(U , "OPTIMALjthest" > > =» o) 
studyPara . preDispPara » OPTiMAL_CHEST; 

else { 

printf ( "Wrong PreDispPara in %s\n", DefFile); exit(o); 



prgDirectory 



if ( (strcmptstrjplo] , "PrgDirectory")) *- 0) 

strcpy ( studyPara. prgDirectory, str _p[l]>; 



IntermediateResult 



if ( <atrcmp(str_p[o] , "IntermediateResult") ) «» 0) { 
if ( (atrcmp ( b tr_p {1] , "OFF" ) ) «- 0) 

studyPara . intermediateReault - OFF; 
else if ((strcmplstr _p(H,"0N")) - = o) 

studyPara. intermediateResult » ON; 

else { 

printf ( "Wrong IntermediateResult in %s\n", DefFile); exit(o); 

} // End of while 
fcloee(fp) ; 
return studyPara; 



Check DefFile 
11/20/98 Code by Shige 



void CheckDef File (StudyPara sdy) 
{ 

if (sdy. inputlmageFormat INPUT_STANDARD_FCR HEADER) { 

printf ("\a\aINPUT_STANDARD_FCR_HEADER is not permitted !! \n") ; exit(o); 



if (sdy. inputlmageFormat lNPUT_DlCOM_FCR_HEADER) { 
( sdy . out put I mage Format !«= output_NON_header) { 
printf ( "Wrong Input ImageFormat \n ") ; exit(O); 



} 

else 



> 

else 
if 



if (sdy. input Image Format -= INPUT_DICOM_THV_HEADER) { 
(sdy.OUtputlmageFormat -- OUTPUT_STANDARD_FCR_HEADER ) { 
printf ( "Wrong Input Image Format\n" ) / exit (0) ; 



if (sdy. input I mage Format — INPUT_NON_HEADER) { 
(sdy.outputlmageFormat !- 0 UT PUT_NON_H E A DE R | | 
(sdy.subFName !- sub_fname_fix && 
Sdy.SubFName i = SUB_FNAME_COMMAND_LINE) ) { 
printf ( "Wrong Input ImageFormat \n" > ; exit(O); 



Get Current Date and Time as integer 
OUTPUT NumTime defined in TempSub.I 

11/20/98 Code by Shige 



«define SIZET 20 

NumTime GetNumTimeO 



time_t timer - time (NULL) ; 

tm *lct » localtime Utimer) ; 

char year [sizet] ; 

char years [sizet] ; 

char month [SIZET] ; 

char day [SIZET] ; 

char hour [sizet] ; 

char minute [sizet] ; 

char second [SIZET] ; 



strf time (year, 


SIZET, 


"*Y", 


let) ; 


strf time (years, 


SIZET, 


"%y". 


let) ; 


strf time (month, 


SIZET, 


"%m", 


let) ; 


Btrf time (day, 


SIZET, 


"%d M , 


let) 1 


strf time (hour, 


SIZET, 


"%H", 


let) ; 


strf time (minute , 


SIZET, 


"%M", 


let) ; 


strf time (second, 


SIZET, 


»%S", 


let) ; 



Conversion to integer 



numTime.year = atoi (year) ; 
numTime .years > atoi (years) ,■ 
numTime .month = atoi (month) ,• 
numTime. day » atoi (day); 
numTime. hour = atoi (hour) ; 
numTime .minute - atoi (minute) ; 
numTime . second » atoi (second) ; 



return numTime; 



Get Current Date and Time as strings 
OUTPUT TexTime defined in TempSub.H 

11/20/98 code by Shige 



TexTime GetTexTimeO 
{ 

TexTime texTime; 

time_t timer - time (NULL); 

tm *lct - localtime (itimer) ; 



Get Time 



strf time (texTime .year, SIZET, "%Y", let); 

strf time (texTime .years, sizet, "*y", let); 

strf time (texTime .month, SIZET, "%m", let) ; 

strf time (texTime .day, SIZET, "%d", let); 

strftimeltexTime.hour, SIZET, "%H", let); 

strf time (texTime .minute, SIZET, "%M", let); 

strftime(texTime. second, SIZET, "%S", let); 

return texTime; 
) 

/*" = — " — - 

Function Name getFileSize 
Function Get file size in bytes 

Usage int FileSize «= getFileSize (char 'FileName); 

Coded 07/21/98 shige 

int getFileSize (char *FileName) 

int FSize; 
FILE »fp; 

if ((fp = fopen(FileName, "r") ) -- o) { 

printf ("*s is missing \n" , FileName) ; exit(0); 

fseek(fp, 0, SEEK_END) ; 
FSize - ftell (fp) ,- 
fclose(fp) ; 

return (FSize) ; 



Function Name get Image Format 

Function Get Image Format 

Usage inputlmageFormat get ImageFormat (char* , int*, int*); 

Coded 12/04/98 shige 

ttdefine FLAG_LEN 512 

InputlmageFormat getlmageFormat (char 'FileName, int *mszx, int *mszy) 

FILE «fp; 
InputlmageFormat inputlmageFormat; 



int 

FcrStand 

FcrDicom 

ThvDicom 

char 

short 

int 

int 

char 

char 

Char 

Char 

now 

char 

now 

Char 

now 

char 



FileSize; 
f cr; 
dem; 
thv; 

* header , 
*header_gen; 

i. j; 

n * 0; 

auf [FLAG^LEN] , buf [FLAG_LEN] ; 
FcrStdFlag[] - "FUJI PHOTO FILM"; 

DcmFlagt) - "1.2.840.10008.5.1.4.1.1.1"; 

UoehFlag[] - " FUJI PHOTO FILM" ; // Not used 

UCFlaglU - "FUJI CR»; // Not used 

UCFlag2[] - "Fuji Photo Film"; // Not used 
ThvFlag [] - "Philips Medical Systems"; 



extern FcrStand getFcrStandlnf o ( FILE* , char*),- 

extern FcrDicom getFcrDicomlnf o ( FILE* , char*); 

extern ThvDicom getThvDicomlnf o ( FILE* , char*); 



Read top part of image 

if ((fp = fopen( FileName, "r") ) o) { 

printf("%s is missing \n" , FileName) ,• exit(0); 

freadtauf, sizeof (char) , FLAG_LEN, f p) ; 
f close ( fp) ; 

for (i = 0; i < FLAG_LEN; i + + ) { 

if (aufti] >~ 0x20 && auf[i] <= Dx7A) buf[n ++ ] = auf [i] ; 
} 

buf [n] - 0; 



Identification of Image Format 



if (o i- strstr(buf, DcmFlag)) { 
if (o !» strBtr(buf, ThvFlag)) { 

inputlmageFormat - INPUT_DICOM_THV_HEADER; 
header - new char [MAX_THV_HEADER_SIZE] ; 
if ((fp - fopen( FileName, "r") ) -•= 0) { 

printf ("ts is missing \n» , FileName) ,- exit(0); 

thv - getThvDicomlnf o ( fp, header); 
f close (fp) ,- 
•mszx - thv. Col; 
•mszy - thv. Row; 
delete header; 

else { 

inputlmageFormat • INPUTJ3ICOM_FCR_HEADER; 
header - new char [MAX_FCR_DCM_HEADER_SIZE] ; 
if {(fp « fopen(FileName, "r") ) 0) { 

printf ("%s is missing \n" , Fi leName ) ,- exit(0); 

dem - getFcrDicomlnf o(fp, header); 



fclose (fp) ; 
•mszx - dem. Col; 
*mszy » dem. Row; 
delete header; 

else if (0 t- strstr(buf, FcrStdFlag) ) { 

inputlmageFormat - INPUT_STANDARD_FCR HEADER; 

header « new char [HEADER_SIZE] ; 

if [(fp - fopen{ FileName, "r") ) — 0) { 

printf("*s is missing \n" , FileName) ; exit(o); 

fcr - getFcrStandInfo(fp, header); 
fclose (fp) ,- 
*mszx » fcr. Col; 
♦mszy - fcr. Row; 
delete header; 

else { 

FileSize - getFileSize (FileName ) ; 
header_gen •= new short [GEN_HEADER_SIZE] ; 
if ((fp - fopen(FileName, "r") ) 0) { 

printf("%8 is missing \n" , Fi leName ) ; exit(0); 

} 

tfifdef _SUN_SPARC_SOLARIS_lX_ 

fread( ( char* ) header_gen , sizeof (short) , GEN_HEADER_SIZE, fp) ; 
Melse 

f read (header_gen, sizeof (short) , GEN_HEADER_SIZE, fp) ; 
tfendif 
fclose(fp) i 

*mszx - header_gen [0] / 
•mszy • header gentl] ; 

if (FileSize »* ( int ) pow (( int ) sqrt (FileSize / 2), 2) * 2) { 
•mszx » *mszy - (int) sqrt (FileSize / 2); 
inputlmageFormat = I NPUT_NON_ HEADER; 

else if (FileSize jsrt_db_size) { 
•mszx « *mszy ■ 2048; 
inputlmageFormat = INPUT_JSRT_DB; 
) 

else if (FileSize =- (*mszx • *mszy + GEN_HEADER_SIZE) • 2) { 
inputlmageFormat - INPUT_STANDARD_GEN_HEADER; 

else { 

inputlmageFormat » iNPUT_OTHER / 
delete header_gen; 



} 

return inputlmageFormat; 



Function Name getGenStandlnf o 

Function Get General Standard Header Information 
Coded 02/24/99 Shige 



GenStand getGenStandlnf o (FILE *fp) 
Genstand gen; 



•header - new short [GEN_HEADER_SIZE] . 



short 

tfifdef _SUN_SPARC_S0LARIS_1X_ 

f read ( (char* ) header, sizeof (short ) , GEN_HEADER_SIZE, fp) ,- 
ttelse 

freadfheader, sizeof (short ) , GEN_HEADER_SIZE, £p) ; 
ttendif 

gen . col * header [o] ; 
gen. Row = header[l); 
gen.NBit - 10/ 

delete header; 
return gen; 



Function Name getSFCRImage 

Function Get FCR Standard Header Image (Short) 

usage void getSFCRImage (char* , short* , int, int ) ,- 

Coded 12/04/98 Shige 

void getSFCRImage (char »FileName, short 'image, int col, int lin) 



Function Name getSDCMImage 
Function Get DCM Image (Short) 
Usage void getSDCMImage (char* 

Coded 12/07/98 shige 



short*, int, int); 



void getSDCMImage (char *FileName, short *image, int col, int lin) 

PILE *fp; 

FcrDicom fcr; 

char *FcrDcmHeader,- 

float ratio; 

int mszx, mazy,- 

short «org; 

short MaxGray «= 1023; 

int i, j, ix, iy, jx, jy, k, 1, u, v; 

extern FcrDicom getFcrDicomlnf o (FILE* , char* > ,- 



FcrDcmHeader = new char [MAX_FCR_DCM_heaDER_SIZE] ,- 



open Original Image File 



if((fp » fopen(FileName, "r") ) — o) { 

printf("%s is missing \n", FileName) ,• exit{0); 

fcr = getFcrDicomlnfo(fp. FcrDcmHeader) ,- 
mszx ■ fcr. Col; 

mszy - fcr. Row; if (mszy > FCR_WY) mazy » FCR_WY ; 
ratio - (float)mszx / (float)col; 
org « new short [mszx * mszy] ,- 



Identification of Matrix Size 

- - */ 

if (0 strcmp(fcr .IPSize, HANSETUJ3CM) ) { 
printfC'IP Size is 14 x 17\n") / 
if (0 -> etrcmp(£cr.Dir, V_FLIP_DCM) || 
0 == strcmpffcr.Dir, HV_FLIP_DCM) ) 
fseek(fp, sizeof (ahort) * fcr_wx ♦ SKIP_HANSETU, 



/* 



Read original Image with 10 bits gray scale 

printf ("DCM.FCR %s (%d, %d)-=-(*d, %d)\n», FileName, 
mszx, mszy, 
col, lin); 

tfifdef _SUN_SPARC_SOLARIS_lX_ 

fread( (char*)org, s i zeof ( short ) , mszx * mszy, fp) ,- 
#else 

fread(org, sizeof (short) , mszx * mszy, fp) ; 
ttendif 
f close ( fp) ; 



Copy 



if (0 *- strcmp(fcr.Dir, HV^FLIPJXM) ) { 

for (j - 0; j « lin/ j+t) { 

iy ■ (float)j * ratio + 0 . S ; 

jy - lin - j - 1, 

for (i - 0; i < col; i++) { 

ix - (float) i * ratio + 0.5; 

Jx - col - i - 1; 

U - jy * COl + jx; 

v - iy * mszx + ix; 

image [u] « ((org[v] >> 8 & OxoOFF) | (org [v] <« 8)> * MaxGray; 



else if (0 strcmp(fcr.Dir, H_FLIP_DCM) ) { 
for (j - 0,- j < lin,- j + + ) { 
iy = (float) j * ratio + 0.5; 
jy « j; 

for (i - 0; i «: COl; i + + ) { 

ix = (float)i * ratio + 0.5; 
jx - col - i - 1/ 
u = jy * col + ]X; 
v = iy * mszx + ix; 

imagelu] * ((org(v) >> 8 i OxOOFF) | (org [v] << a)> A MaxGray,- 



> 

else if (0 =. strcmp(fcr.Dir, V_FLIP_DCM)) { 
for (j = 0; j < lin,- j++) { 

iy * (float)j * ratio + 0.5; 

jy - lin - j - l; 
for (i » 0; i < cal; i++) { 

ix - (float) i * ratio + 0.5; 

jx « i; 

u - jy * col + jx; 
v - iy * ms2x ♦ ix; 

image[u] =■ <(org[v] >> 8 & oxooff) j (org [v] « a)) * MaxGray; 



else { 

for (j « 0, j < lin; j**) { 

iy - (float) j * ratio + 0.5; 
for (i - 0/ i < col; i++) { 

ix - (float) i * ratio + 0.5; 

u - j * col + i; 

v = iy * mszx + ix; 

jmagelu] - Korglv] >> e & OxOOFF) j (org[v] « 8)) A MaxGray,- 

delete org,- 

delete FcrDcmHeader,- 

) 

/* , „ 

Function Name getSTHVlmage 

Function Get Thoravision Image (Short) 

Usage void getSTHVlmage (char* , short*, int, int); 

coded 12/07/98 shige 

void getSTHVlmage (char *FileName, short 'image, int col, int lin) 

FILE *fp ; 

ThvDicom thv; 

char *THVHeader; 

float ratio; 

short *org; 

short MaxGray « 1023,- 

short val; 

int Shift,- 

int i, j, ix, iy, jx, jy, k, 1, u, v ; 

extern ThvDicom getThvDicominf o (FILE* , char* ) ; 

/•--- - 

Begin 

•/ 

THVHeader - new char [MAX_THV_HEADER_3IZE] ; 
/• 

Open Original Image File 

if((fp - fopen(FileName, »r") ) 0) ( 

printf ("*s is missing \n" , FileName) / exit(o),- 

thv - getThvDicomlnfotfp, THVHeader),- 
ratio - (float) thv. Col / (float) col,- 
org - new short [thv. col * thv. Row] 
shift - thv.NBit - 10; 

/• - 

Read Original Image with 10 bits gray scale 

*/ 

printf ("PHL. THV %s (*d, *d)->(*d, %d)\n", FileName, 

thv. Col, thv. Row, 

col, lin); 

ftifdef _SUN_SPARC_S0LARIS_1X_ 

f read ( (char* ) org, sizeof (short) , thv. Col * thv. Row, fp) / 



#else 

fread(org, sizeof (short) , thv. Col * thv. Row, fp) ; 
ttendif 
fclo8e (fp) ,- 



Copy 



if (0 strcmp(thv.Dir, AP_THV) ) { 
for (j = 0; j < lin; { 
iy - (float) j * ratio + 0.5; 

jy - j; 

for (i - 0; i < COl; i+4) { 
ix » (float) i * ratio + 0.5; 
jx- col - i - 1 ; 
u = jy * col + jx,- 
v =- iy * thv. Col + ix,- 

if (ix >- thv. Col |( iy >- thv. Row) image (ul - 0 ,- 
else { 

val - (org[v] >> 8 & OxOOFF) | (org[v] « 8 & OxFFOO); 

image [u] * (val >> Shift) A MaxGray,- 



else { 

for (j - 0; j < lin; j*+) { 

iy - (float) j * ratio ♦ 0.5; 
for (i - 0; i < col; i++> { 
ix - (float)i * ratio + 0.5; 
u - j * col + i; 
v • iy * thv. Col + ix,- 

if (ix » thv. Col || iy >« thv. Row) image [u] 



els 



{ 

val * (org(v) >> 8 & OxOOFF) | (org [v) << 8 & OxFFOO); 

image [u] - (val >> Shift) " MaxGray; 



delete org; 
delete THVHeader,- 



Function Name getSNOHImage 

Function Get Non-Header Image (Short) 

Usage void getSNOHImage (char* , int , int, short* 

Coded 12/07/98 shige 

void getSNOHImage (char *FileName, int mx, int my, 



{ 

FILE 
float 
short 
int 



short *image, int col, int lin) 

*fp/ 

ratio,- 

•org,- 

i, j, ix, iy, jx, jy, k, 1, u, v,- 



Begin 



ratio - (float)mx / (float)col/ 
org - new short [mx * my] ; 



Open Original Image File 

*/ 

if((fp « fopen( FileName, »r»! ) 0) { 

printf ("%s is missing \n K , FileName) ; exit(O); 

printf ("NOH.IMG %s (Vd, %d)->(%d, %d)\n», FileName, 
mx, my, 
col, lin); 

#ifdef _SUN_SPARC_S0LARIS_1X_ 

fread( {char* ) org, sizeof (short) , mx * my, fp) ; 
ttelse 

fread(org, sizeof (short) , mx * my, fp) 
Kendif 
f close (fp) ; 



Copy 



for (j » 0; j < lin; j + + ) { 
iy - (float) j * ratio + 0 . 

for (i = 0; i < COl; i + + ) 

ix » (float) i * ratio 
v» iy * mx + ix,- 
u=- j* col ♦ 1 1 
image !u] • org [v] ; 

delete org; 



Function Name getSJDBImage 
Function Get JSRT DB Image (Short) 
Usage void getSJDBImage (char* , int, 

Coded 12/07/98 shige 



int, short*, int, int); 



void getSJDBImage (char *FileName, int mx, int my, 



{ 

FILE 
float 
short 
short 
int 



short *image, int col, int lin) 

•fp; 

ratio; 

•org/ 

MaxGray = 1023; 

i, j, ix, iy, jx, jy, k, 1, u, v; 



ratio - (float)mx / (float)col; 
org - new short [mx * my] ; 



Open Original Image File 



if((fp - f open (FileName, "r") ) — 0) { 

printf (»*s ie missing \n", FileName) ; exit(0); 



printf ("JSRT. DB %s (%d ( %d)->(*d, %d)\n", FileName, 
mx, my, 
col, lin); 

ttifdef _SUN_SPARC_SOLARIS_lX_ 

f read ( (char* ) org, si2eof (short) , mx « my, fp) 
Seise 

fread(org, sizeof (short) , mx * my, fp) ,• 
Hendif 
fclose (fp) ; 



copy 

for (j - 0; j < lin; j + +) { 
iy - (float)j * ratio + 0.5; 
for (i - 0; i < col; i++) { 

ix - (float)i * ratio + 0.5; 

v« iy * mx ♦ ix; 

U* j* col ♦ i; 

image [u] « org[v] " MaxGray; 
delete org; 



Function Name getSGENImage 

Function Get General Standard Header Image (Short) 
Usage void getSGENImage (char* , short*, int, int); 

Coded 02/24/99 Shige 

void getSGENImage (char *FileName, short *image, int col, int lin) 

GenStand gen; 

FILE *fp; 

float ratio; 

short *org; 

int i, j, ix, iy, jx, jy, k, 1, u, v; 



Open Original Image File 



if((fp - fopen< FileName, "r") ) o) { 

printf <"%s is missing \n", FileName) ; exit<0); 

gen - getGenStandlnf o (f p) ; 

ratio - (float)gen.Col / (float)col; 

org - new short [gen. Col * gen.Row] 

printf ("GEN. IMG te <%d, %d)->{%d, %d)\n", FileName, 
gen. col, gen.Row, 
col, lin); 

«ifdef _SUN_SPARC_S0LARIS_1X_ 

fread( (char*) org, sizeof (short) , gen. Col * gen.Row, fp) ; 
ttelse 

f read (org, Bizeof (short) , gen. Col * gen.Row, fp) ,- 
Uendif 
fclose (fp) ; 



for (j » 0; j < lin; j++) { 
iy = (float)j * ratio + o. 
for (i =. 0; i < col,- i + + ) 

ix - (float)i * ratio 

v- iy * gen. Col + ix; 

u- j* col + i; 

image [u] - org [v] ; 

delete org; 



Function Name getCFCRlmage 

Function Get FCR Standard Header image (unsigned char) 

usage void getCFCRlmage (char* , unsigned char*, int, int); 

Coded 12/04/98 Shige 

— =—«■-*/ 

void getCFCRlmage (char *FileName, unsigned char *image, int col, int 
lin) 



/* 



Function Name getCDCMImage 
Function Get DCM Image (unsigned char) 

Usage void getCDCMImage (char* , unsigned char*, int, int); 

Coded 12/07/98 shige 

— — - - .»...*/ 

void getCDCMImage (char * FileName, unsigned char ♦ image, int col, int 

lin) 

( 

FILE *fp; 

FcrDicom fcr; 

char 'FcrDcmHeader; 

float ratio,- 

int mBzx, mszy; 

short *org; 

unsigned char MaxGray - 255; 

int shift . 2/ 

int i, j, ix, iy, jx, jy, k, 1, u, v; 

extern FcrDicom getFcrDicomlnf o (FILE* , char*); 



FcrDcmHeader - new char [MAX_FCR_DCM_HEADER_SIZE] ; 



open Original Image File 



if((fp - fopen(FileName, "r") ) o) { 

printf ("%s is missing \n» , FileName) ; exit(O); 

fcr « getFcrDicomInfo(fp, FcrDcmHeader); 
mszx = fcr. Col; 

mszy - fcr. Row; if (mszy > FCR_WY) mszy - FCRJW; 
ratio - (float)mszx / (float)col; 
org - new short [mszx * mazy] ; 



Identification of Matrix Size 

*/ 

if (0 =- strcmp(fcr.IPSize, HANSETU_DCM) } { 

printfflP Size is 14 x I7\n"); 

if (0 strcmp(fcr.Dir, V_FLIP_DCM) |j 
0 =- strcmp(fcr.Dir, HV_FLIP_DCM) ) 

fseek(fp, sizeof (short) * fcrjix * skip_hansetu, seek_cur) ; 



Read Original Image with 10 bits gray scale 

printf ("DCM. FCR %s <%d, %d)-»(%d, %d)\n'\ FileName, 
mszx, ms2y, 
col, lin) ; 

ttifdef _SUN_SPARC_S0LARIS_1X_ 

fread( (char*)org, sizeof (short) , mszx * mszy, fp) ; 
ttelse 

freadtorg, sizeof (short) , mszx * mszy, fp) ; 
ttendif 
fclose (fp) ,- 



copy 



.£ (0 — Strcmp(fcr.Dir, HV_FLIP_DCM) ) { 
for (j - 0; j < lin; j + + ) { 

iy - (float) j * ratio + 0.5; 

jy - lin - j - 1; 
for (i = 0; i < col; i*+) { 

ix * (float)i * ratio ♦ 0.5; 

jx - col - 1 - 1; 

u « jy * col + jx; 

v - iy • mszx + ix; 

image [u] - ( ( (org [v] 
(org[v] << 



& OxOOFF) | 
Shift) * MaxGray; 



else if (0 -= strcmp(fcr.Dir, H_FLIP DCM) ) { 
for (j - 0; j < lin; j++) { 
iy » (float)j * ratio + o.5 ; 
jy - j; 

for (i - 0; i < col; i++) { 
ix - (float)i * ratio + 0.5; 
jx - col - i - 1; 
u = jy * col + jx; 
v - iy * mszx + ix,- 

image [u] = (((org[v] » a & OxOOFF) | 

(org[v] << 8)) >> Shift) * MaxGray, 



I 

else if (0 >= atrcmp(fcr.Dir, V_FLIP_DCM)) { 

for (j - 0; j < lin; j+ + ) { 

iy « (float) j * ratio + 0.5; 

jy - lin - j - 1; 

for (i = 0/ i < col; { 

ix « (float)i * ratio ♦ 0.5,- 

jx - i; 



u = jy * col ♦ jx; 
v « iy * mszx + ix; 

image [u] - (({org[v] >> 8 & OxooFP) j 

(org[v] << 6)) >> Shift) * MaxGray; 



else { 

for (j - O; j « lin; j**) { 

iy = (float)j * ratio + 0.5; 

for {i - 0/ i < col; i* + ) { 

ix - (float)i * ratio «- 0.5; 

u - j » col + i ; 

v - iy * mszx + ix,- 

image lu] * (((org[vj >> 8 & OxOOFF) j 

(org[v] « 8)) >> Shift) A MaxGray; 



delete org; 

delete FcrDcmHeader ; 



Function Name getCTHV Image 

Function Get THV Image (unsigned char) 

Usage void getCTHVImage (char* , unsigned char*, int, int); 

Coded 12/07/98 shige 

„...../ 

void getCTHVImage (char *FileName, unsigned char *image, int col, int 

lin) 

< 

FILE *fp; 

ThvDicom thv; 

char * THVHeader; 

float ratio; 

short *org; 

unsigned char MaxGray » 255; 

short val; 

int Shift; 

int i, j, ix, iy, jx, jy, k, 1, u, v ; 

extern ThvDicom getThvDicomlnfo ( FILE* , char*),- 



Begin 

THVHeader » new char [MAX_THV_HEADER_SIZE] ; 



Open Original Image File 



if((fp - fopen(FileName, "r") ) =» o) { 

printf ("%s is misBing \n" , FileName) ; exit(0); 

thv » getThvDicomlnfo (fp, THVHeader); 
ratio - (float) thv. col / (float) col/ 
org - new short (thv . Col « thv. Row); 
Shift * thv.NBit - 8; 



Read Original Image with 10 bits gray scale 



print f ( " PHL . THV %s (%d, %d)->(%d, %d)\n», FileName, 
thv. Col, thv. Row, 
col, lin) ; 

(Jifdef _SUN_SPARC_S0LARIS_1X_ 

freadl (char*)org, sizeof (short) , thv. Col * thv. Row, fp) ; 
Seise 

f read (org, si zeof ( short > , thv. Col * thv. Row, fp) ; 
«endif 
fclose (fp) ; 

/* 

Copy 

- - •/ 

if (0 == strcmp(thv.Dir, AP_THV)) { 
for (j - 0; j < lin; j*+) { 

iy « (float)j * ratio ♦ 0.5; 

jy - j; 

for (i - 0; i < col; i+4) { 
ix - (float) i * ratio + 0.5; 
jx - col - i - 1; 
u = jy * col ♦ jx, 
v - iy * thv. Col ♦ ix,- 

if (ix >» thv. Col || iy >» thv. Row) image (u) = o ; 
else { 

val - (org(v) >> 8 & oxooff) | (orgtv] << 8 s. oxFFoo); 

image [u] - (val >> Shift) A MaxGray; 

else { 

for (j - 0; j < lin; ( 

iy » (float) j * ratio + 0.5; 
for (i - 0, i * col; { 

ix - (float) i * ratio ♦ o .5; 

u - j * col + i; 

v » iy * thv. col + ix, 

if (ix >- thv. Col || iy >= thv. Row) image [u] = o,- 
else { 

val = (orgfvj >> 8 u OxOOFF) | (org [v] << 8 & OxFFOo); 

image [u] t (val >> Shift) A MaxGray,- 



delete org,- 
delete THVHeader; 



Function Name getCNOHImage 

Function Get Non-Header Image (unsigned char) 

Usage void getCNOHImage (char* , int, int, unsigne 

Coded 12/07/98 shige 

void getCNOHImage (char *FileName, int mx, int my, 

unsigned char *image, int col, int lin) 

FILE *fp; 
float ratio; 



t, int) 
--♦/ 



short 

int 

int 



*org ; 

Shift . 2; 

i , j , ix, iy, jx, jy, k, 1 , 



ratio - (float)mx / (float)col; 
org = new short (mx * my]; 



Open Original Image File 



ifdfp - fopen(FileName, »r") ) -= 0) { 

printf("%s is missing \n", FileName) ; exit(O); 

printf ("NOH.IMG ts (%d, %d)->(%d, %d)\n«, FileName, 
mx, my, 
col, lin); 

#ifdef _SUN_SPARC_S0LARIS_1X_ 

f read ( (char*) org, sizeof (short) , mx * my, f p) ; 
#else 

f read (org, Bizeof (short) , mx * my, fp) ,- 
«endif 
f close (fp) ; 



copy 



for (j - 0; j < lin; j++) { 
iy - (float) j * ratio + 0.5; 

for (i - 0; i < cOl; i + + ) { 

ix » (float)i * ratio + 0.5; 

v- iy * mx + ix; 

u- j* col + i; 

image lu] = org [v] >> Shift; 

delete org; 



/*> 



Function Name getCJDBImage 

Function Get JSRT DB Image (unsigned char) 

Usage void getCJDBImage (char* , int, int, unsigned char*, int, int) 

coded 12/07/98 Shige 

« -*/ 

void getCJDBImage (char *FileName, int mx, int my, 

unsigned char *image, int col, int lin) 

FILE *fp,- 

float ratio; 

short *org; 

unsigned char MaxGray » 255; 

int Shift - 2; 

int i, j, ix, iy, jx, jy, k, 1, u, v; 



Begin 

ratio - ( float) mx / ( float) col; 



= new short [mx * my) ; 



open original Image File 



if((fp - fopen(FileName, "r") ) =« o) { 

printf("%s is missing \n", FileName) ; exit(0); 

printf ( "JSRT. DB %s (*d, *d)->(%d, %d)\n", FileName, 
mx, my, 
col, lin); 

(tifdef _SUN_SPARC_SOLARIS_lX_ 

f read ( (char* ) org, sizeof (short) , mx * my, fp) ,- 
ttelse 

fread(org, si2eof (short) , mx * my, f p) ; 
Hendif 
fclose ! fp) ; 



copy 



for (j - 0; j < lin,- j + + ) { 
iy . (float)j • ratio + 0.5,- 
for (i - 0; i < col; i>+) { 

ix - (float)i * ratio + 0.5; 
v. iy * mx + ix; 

U» j* COl + i; 

image [ul . (orgfv] >> Shift) * MaxGray; 
delete org; 



Function Name getCGENImage 

Function Get General standard Header Image (unsigned char) 
Usage void getCGENImage (char* , unsigned char*, int, int); 

coded 02/24/99 shige 

— " = " «"« ----- / 

void getCGENImage (char * FileName, unsigned char * image, int col, int 
lin) 



( 

Genstand 

FILE 

float 

Short 

int 

int 

/• 



gen; 
*fp; 
ratio; 
*org; 
Shift . 
i, j, • 



iy. j x i jy. k, i, u, v,- 



open Original Image File 



if((fp - fopen(FileName, "r") ) o) { 

printf("%s is missing \n<\ FileName) ; exit(0); 

gen - getGenStandlnf o ( f p> ; 

ratio = (float)gen.Col / (float)col; 

org « new short £gen , Col * gen. Row]; 

printf ("GEN. IMG ts <%d, %d)->(%d, *d)\n", FileName, 
gen. col, gen. Row, 



col , lin) i 

ttifdef _SUN_SPARC_S0LARIS_1X_ 

f read ( (char* ) org, sizeof (short) , gen. Col * gen. Row, fp) ; 
tie 1 ae 

fread(org, sizeof (short) , gen. Col * gen. Row, fp) , 
«endif 
fclose (fp) ; 

/*---- 

copy 

*/ 

Cor (j - 0; j « lin/ { 
iy - (float) j * ratio + 0.5; 
for (i = 0; i < col/ i++) { 

ix - (float) i * ratio + 0.5; 

v= iy * gen. Col + ix; 

u= j* COl + i; 

image [u} - org [v] >> Shift; 

, 1 

delete org,- 

/* = ----- = 

Function Name getODCMImage 

Function Get Reduced original FCR DCM Image (Short) 
Usage void getODCMImage (char* , short*, int, int); 

coded 04/14/99 Shige 

void getODCMImage (char *FileName, short * image, int col, int lin) 

FILE *£p; 

FcrDicom fcr; 

char * FcrDcmHeader; 

float ratio; 

int mszx, mszy,- 

short *org; 

int i, j, ix, iy, jx, jy, k, 1, u, v,- 

extern FcrDicom getFcrDicomlnfo (FILE* , char*); 

/*---- 

Begin 

./ 

FcrDcmHeader - new char [MAX_FCR_DCM_HEADER_SIZE] / 

/* — 

open original Image File 

*/ 

if((£p - fopen (FileName, "r") ) 0) j 

printf("*is is missing \n", FileName) / exit(o); 

fcr - getFcrDicomInfo(fp, FcrDcmHeader); 
mszx - fcr. Col; 

mszy - fcr. Row; if (mszy > FCR_WY) mszy - FCR_WY; 

if (mazx FCR_WX col »- FCR_WX / RATIO) ratio - ( f loat ) RATIO / 
else ratio = (float)mszx / (float)col/ 

org - new short [mszx * mszy] ; 

/* 

Identification of Matrix size 
*/ 



if (0 strcmp(fcr.IPSize, HANSETU_DCM) ) { 
printfCIP Size is 14 x 17\n H ); 
if (0 strcmp(fcr.Dir, V_FLIP_DCM) || 
0 =- strcmp(fcr.Dir, HV_FLIP_DCM) ) 

fseek(fp, Sizeof (Short) * FCR_WX * SKIP_HANSETU, SEEK_CUR); 

} 



Read Original Image with 10 bits gray scale 

printf ("DCM.FCR *s (%d, %d)->(*d, %d)\n», FileName, 
mszx, mszy, 
col, lin) i 

flifdef _SUN_SPARC_SOLARIS_lX_ 

f read { (char*) org, a i zeof ( short ) , mszx * mszy, f p) ; 
«else 

fread(org, sizeof (short) , mszx * mszy, fp) ; 
Hendif 
f close (fp) ; 



copy 

if (o strcmp(fcr.Dir, HV FLIP DCM) ) { 
for (j - 0; j < lin; j*+)~{ 

iy - (float)j * ratio ♦ 0.5/ 

jy - lin - j - 1; 
for (i =» 0; i < col; i + +) { 

ix - (float) i « ratio + 0.5; 

jx * col - i - 1 ; 

u - jy * col + jx/ 

v - iy * mszx + ix; 

image [u] - org (v) ; 

) 

) 

else if (0 =- strcmp(fcr .Dir, H_FLIP_DCM) ) { 
for (j . 0, j < lin; j ++ > { 
iy = (float) j * ratio + 0.5; 

iy - i> 

for (i - 0; i < col; i-+> { 
ix - (float) i * ratio + 0.5; 
jx - col - i - 1; 
u - jy * col + jx; 
v = iy * mszx + ix; 
image [u] - org [v] ; 



} 

else if (0 «- strcmp(fcr.Dir, V_FLIP_DCM)) { 
for (j = 0; j < lin; { 
iy - (float)j * ratio + 0.5; 
jy - lin - j - 1; 

for <i - 0; i < COl; i++) { 

ix - (float)i * ratio + 0.5; 
jx - i; 

u - jy * col + jx; 
v - iy * mszx + ix; 
image [u] - org [v] ; 



} 

else { 

for (j - 0; j < lin; }♦♦) { 
iy - (float) j * ratio + 0.5; 

for (i - 0; i < COl; i* + ) { 

ix - (float)i * ratio + 0.5; 
u - j * col + i; 
v « iy * mszx + ix; 
image [u) - org [v] ; 

delete org,- 

delete FcrDcmHeader; 

) 



Main Program of Temporal Subtraction for QUICK Mode 
Feb. 20, 1997 

= = = = = = = = = = = = = = = = = . = = = = = = = = = = = = == = _ = = = = = = = = = = = __ = = = = = = = = = = = =s= : = s==s = = = = = */ 

#include <stdio . h> 

#include < string . h> 

#include <stdlib . h> 

# inc lude 11 TempSub . H 11 

#define LEN 12 8 

#ifdef KRL_GNU 

#define cts_quick_y3 cts_quick_y3 

#else 

#define cts_quick_y3 cts_quick_y3_ 
#endif 

extern "C" void cts_quick_y3 (char* , char*, char*, char*); 
int main(int argc, char *argv[]) 



FILE *fp; 
StudyPara studyPara; 
char DefFile [LEN] ; 

char Prelmage [LEN] , Curlmage [LEN] , Sublmage [LEN] ; 

char Success [20] , Failure [20] ; 

extern void CheckDef File (StudyPara) ; 

extern StudyPara ReadTSubDef File (char* ) ; 



/* 

Check Arguments 

*/ 

if (argc != 4 argc 1= 5 && Marge == 2 && ( strcmp (argv [1] , " - -ver » ) 
— 0))) { 

printf ("\7Usage: %s DefFile Prelmage Curlmage [Sublmage] \n" , argv 
[0]); 

exit (0) ; 

} 

if (argc == 2 && ( strcmp (argv [1] -ver " ) == 0)) 

printf (»%s\n" # TS_PROG_VER) ; 
exit (0) ; 

} 

strcpy (DefFile, argv[l] ) ; 

studyPara = ReadTSubDef File (DefFile) ; 

CheckDef File (studyPara) ; 

if (argc == 4 && (studyPara . subFName == SUB_FNAME_COMMAND_LINE) ) { 
printf ("Wrong SubFName in %s.\n M , DefFile); exit(0); 

^ else if (argc == 5 && ( studyPara . subFName 1= SUB_FNAME_COMMAND_LINE) ) 

printf ( "Wrong SubFName in %s.\n", DefFile); exit(0); 



/* 

BEGIN 

*/ 

strcpy (Success, "Success") ; 



strcpy (Failure, "Failure") ; 

/* 

Transfer Arguments 
*/ 

strcpy (Prelmage, argv[2] ) ; 

strcpy (Curlmage, argv[3] ) ; 

if (argc == 5) strcpy (Sublmage, argv[4] ) ; 

print f ( "START. . . Prelmage : \t%s\n" , Prelmage) ; 

printf ( " Cur Image: \t%s\n" , Cur Image) ; 

/* 

FLAG. LOG for PROGRAM START 
*/ 

if ((fp = f open ("FLAG. LOG", "w") ) == NULL) { 

printf ("FLAG. LOG can't be openeci\n"); exit(O); 

} 

if ( studyPara . subFName ! = SUB_FNAME_COMMAND_LINE) 

f printf (fp, "%s\t%s\tNoSubtractionImage\t%s\n" , Prelmage, 

Curlmage, 
Failure) ; 

else 

fprintf (fp, "%s\t%s\t%s\t%s\n" , Prelmage, 

Curlmage, 
Sublmage, 
Failure) ; 

f close (fp) ; 

/* 

TEMPORAL SUBTRACTION FOR FCR IMAGE 
*/ 

cts_quick_y3 (Def File, Prelmage, Curlmage, Sublmage) ; 

/* 

FLAG. LOG for PROGRAM END 
*/ 

if ((fp = fopen ("FLAG. LOG" , "w") ) == NULL) { 

printf ("FLAG. LOG can't be opened\n"); exit(O); 

fprintf (fp, "%s\t%s\t%s\t%s\n" , Prelmage, 

Curlmage, 
Sublmage, 
Success) ; 

f close (fp) ; 

system ("rm -f * . dat fort.*"); 

} 



WARP_AND_SUBTRACTION . f 



subroutine Warp_and_Subtraction( imagel, image2, image3, blank, 

1 ncol , nlin, FX, FY, grayscale, maxpv .offset, imagelrwl, magnify) 

Ver. 1.0 

Written by Akiko Kano, 



Mar. 29, 1993 



Function of the subroutine is warp of the imagel and then make 
subtraction image. 

This subroutine can be used for both first warping and second warping. 
The subtraction image data is stored as Image3. 

(1) Pixel values on the warped image are determined by a linear inter- 
polation method. 

(2) offset value is given at subtraction so that the average pixel 
value of the subtraction image is (maxpv/2) . 

(3) if "grayscale" is 1, which means that 0" corresponds to low optical 
density, Image2 is subtracted from warped Imagel. 

(4) Pixels with no image data from imagel, due to warping or rotation, 
will given (maxpv/2) on the subtraction image. 

(5) The warped current image for the second warping is obtained by this 
subroutine. 

(6) The contrast of a subtraction-image can be magnified by a factor of 
"magnify". 

ARGUMENTS 

implicit none 

integerM War p_and_Sub traction 
integerM ncol, nlin 
integer*2 imagel ( ncol , nli n) 
integer*2 image2lncol , nli n) 
integer*2 image3(ncol , nli n) 
integer*2 blank(ncol , nl i n) 



realM FX(ncol ,nlin) 

realM FY(ncol .nlin) 

integerM grayscale 

integer*4 maxpv 

integer*4 offset 

integer*2 imagelrwl (ncol , nli n) 

realM magnify 



! Matrix Size of Imagel and 2 Til 
I Current Image Data [il 
! Previous Image Data [il 
! Subtraction Image Data [01 
I 1 -> Pixel with No Image Data [I] 
I 0 -> Pixel with Image Data 
! Matrix of Fitted Shift Value Dx 
! Matrix of Fitted shift value DY 
! l:0->Lighter, -l:0->Darker 
! Maximum Pixel Value 
! offset value for subtraction image 
! warped Current image Data 
! contrast magnification factor 
! Default - 2.0 



VARIABLES 



character str*80 
integer*2 warpl 
integer*4 avel, ave2 
integerM C, L , CO, L.0, intp 
realM X, Y, DX, DY 
realM 100, 101, 110, ill 
integerM leng 
integerM id 
common /LOGFILE/ id 



FUNCTIONS 



integerM Cal cu 1 ate^Ave rage 

integerM PutOutputF, UTL*STR_PRINT , UTL$FILE_WRITE 
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1. DETERMINE OFFSET 



WARP_AND_SUBTRACTION . f 



call Calculate_Average( imagel, ncol, nlin, 
call Cal culate_Average( image 2, ncol, nlin, 
write (*,*) 'Average 1 is ', avel 
write (*,*) 'Average 2 is ', ave2 
offset * maxpv / 2 - avel + ave2 
leng * utlSSTR_PRINT( str, ' offset : Xi ' , 
call PutOutputF( '%s' . str ) 
call UTLJFILE_WRITE( id, str ) 



avel ) 
ave2 ) 



write(id,*) ' Offset 



offset 



2 . GET WARPED IMAGE DATA 



do L - 1, 

do C 



nlin 

■ 1, ncol 



2-1. DETERMINE SHIFTED LOCATION 



X - float(C) + FX(C,L) 
float(L) + FY(CL) 



2-2. SHIFTED LOCATION IS INSIDE IMAGE 

-> DETERMINE PIXEL VALUE BY LINEAR INTERPOLATION 
imagelrwl(C.L) : warped current image for the second warping. 



if ( X.ge.1,0 .and. 

Y.ge.1.0 

CO 

L0 



Y!ge!l 
i ntf X) 
int(Y) 



X.le. float (ncol) .and. 

and. Y.le.float(nlin) ) then 



if ( blank (CO. L0).eq.0 .and. blank(C0+l, L0) . eq .0 .and. 

blank (CO ,L0+1) .eq.O .and. blank(c0+l,L0+l) .eq.O ) then 



DX . 



- float(cO) 



y - float(LO) 

100 - float( imagel(cO.LO) , 

110 - floatt imagel(c0+l,L0) ) 

101 - float? imagelfc0,L0+l) ) 

111 - float( imagel(CO+l,LO+l) ) 

intp « nint( (1.0-DX)*(1.0-DY)*I00 + DX*(1.0-DY)*I10 

+ (1,0-DX)*DY*I01 + DX*DY*I11 ) 

warpl « max( 0, min( maxpv, intp ) ) 
imagelrwl(c,L)=warpl 



2-3. NO IMAGE DATA DUE TO ROTATION 

-> SUBSTITUTE PIXEL VALUE WITH THAT OF IMAGE 2 

imagelrwl(c.L): warped current image for the second warping. 



else 

warpl = image2(C,L) 
imagelrwl(C,L)-0 
end if 



2-4. SHIFTED LOCATION IS OUTSIDE IMAGE 

-> SUBSTITUTE PIXEL VALUE WITH THAT OF IMAGE2 
imagelrwl(C,L): warped current image for the second warping. 



warpl - image2(C,L) 
imagelrwl(C,L)-0 
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3. GET SUBTRACTION IMAGE DATA 

magnify -> contrast magnification factor for subtraction ..... 
imagelrwl(c,L) : warped current image for the second warping, 

image3(C,L) - int(float(image2(c,L) - warpl) *magni fy)+off set 
if ( grayscale.eq.l ) image3(c,L) - maxpv - image3(C,L) 
image3(C,L) - max( 0, min( maxpv, image3(C,L) ) ) 
i magelrwl (C , L) -warpl 



end do 
end do 



subroutine cal cul ate^Ave rage ( image, ncol, nlin, ave ) 



ver. 1.0 

written by Akiko Kano, 



Jan. 14, 1993 



This function calculates the average pixel value of an image. 
ARGUMENTS 



implicit none 

integerM Cal cul ate_Ave rage 

integerM ncol , nlin 

integer*2 image(ncol ,nlin) 

integerM ave 

real*8 sum 



! Matrix Size of image Data 

i Image Data 

! Average Pixel Value 



VARIABLES 
integerM C, L 



do L - 1, nlin 

do C - 1, ncol 

sum ■ sum + image(C.L) 

end do 
end do 

ave - nint(sum / ( ncol * nlin )) 
END 

return 
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subroutine warp_rib_chs(FX, FY, ncol , nli n, ribfeaturel, 
rn bcagel , 1 ri bcagel , rn bcage_nol , 1 ri bcage_nol , 
i res_r_x , i res_r_y , i res_J_x , i res_1_y , numl , num2 , 
iyl_rulel,ixLrule2 1 iyl_rule2,ix2_rule2,iy2_rule; 
ixl_rule3,imagel__2) 



in order to achive the lung segmentation of the warped current image, 

we have to get the warped ribcage edges and cardioac edges of the current 

image. 

Function of the subroutine is to warp the detected cardiac edges and 
detected ribcage edges for the segmentation of warped current image. 
The warped current image is used for the second warping technique alone. 



ARGUMENTS 



[I/O] 
[I/O] 



implicit integer*4 (i-n) 
real*4 FXfncol ,nlin) 
real*4 FY(ncol .nlin) 
integer*4 ncol , nlin 
integer*2 ri bfeaturel(50) 
integer*2 rri bcagel(2 , 1215) 
integer*2 1 ribcagel(2 , 1215) 
integer*2 rribcage_nol 
integer*2 lribcage_nol 
integer*4 i res_r_x (100) , i res_i 



iel ti/o] 



I Matrix of Fitted Shift value DX 

! Matrix of Fitted Shift Value DY 

! Matrix Size of Image u 

I Ribcage-Related Features for Imagel 

! Right Ribcage Points for imagel [I/OJ 

! Left Ribcage Points for imagel [I/O] 

! No. of Right Ribcage Points for Imagel Til 

! No. of Left Ribcage Points for Imagel [ij 
_y(100) ! Detected location of R-cardiac edge 



integer*4 i res_l_x(100) , i res_l_y(100) I Detected location of L-cardiac edge 
integer*2 imagel_2 (ncol , nl i n) 



integer*2 iwt(586,586) 



! Image of warped ribcage edge lines 
! and cardiac edge lines. 
I This is for program check. [O] 

I wark area for program check. 



integerM i xX_rule2 , iyl_rule2 
integer*4 i x2_rule2 , iy2_rule2 
integerM ixLrul e3(2 , 586) 



I Upper-left of left cardiac edge 
! x-locations of cardiac edges 
I ix:L_rule3(l,586) -> right cardiac 

I ixl_rule3(2,586) -> left cardiac 

! bottom of right cardiac edge 

(ixl_rule2,iyl_rule2) > x 



x-location 

integer*4 iyl_rulel 



x <- 

\ 



(ix2_rule2,iy2_rule2) 



iyUrulel > x 



do 586 
do i-1,586 

iwt(i ,j)«0 
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end do 
end do 

! 

! 2. GET WARPED DATA 

! 

do L * 1, rribcage_nol 

I 2-1. DETERMINE shifted LOCATIONS for right ribcage edge 

X - float(rribcagel(l,L)) - FX(rribcagel(l,L),rribcagel(2,L)) 

Y - floatfrribcagel(2,L)) - FY(rri bcagel(l, L) , rribcagel(2 , L)) 
rri bcagelfl , L) -i ntOO 

rribcagel(2,L)»int(Y) 

end do 

do L = 1, lribcage_nol 

2-2. DETERMINE SHIFTED LOCATIONS for left ribcage edge 

X - flaat(lribcagel(l,L)) - fx(1 ri bcagel(l.L) , 1 ri bcagel(2 , L)) 

Y - floatnribcagel(2,L)) - FY(lribcagel(l,L) , lribcagel(2 ,L)) 
lribcagel(l,L)-int(X) 

lribcagel(2,L)-int(Y5 

end do 



2-3. DETERMINE SHIFTED LOCATIONS for important ribcage features 
(top lung and midline) 

Y « float(ribfeatureld)) - FY(1 ri bcagel(l.l) , ribfeaturel(l)) 
ribfeaturel(l) - int(Y) 

x - float(ribfeaturel(6)) - FX(ribfeaturel(3) , ri bfeaturel(6)) 
ribfeaturel(6) = int(X) 

Y- float(ribfeaturel(3)) - FY(ribfeaturel(3) , ri bfeaturel(6)) 
ribfeaturel(3) - int(Y) 



2-4. DETERMINE SHIFTED locations for right cardiac edge 



do L«l,numl 



X - floatfires_r_x(L)) 
Y - float(ires_r_y(L)) 
i res_r_xi' * 
i res_r_yi 



FX(ires_r_x(L) ,ires_r_y(L)) 
FY(i res_r_x(L) , i res_r_y(L)) 



2-5. DETERMINE shifted locations for left cardiac edge 



do L-l,num2 

x - float(ires_l_x 
Y - float(ires_l, 



ires_l_x(L)-int(xJ 
" (L)-intW 



Ml 



FX(ires_l_x(L) ,ires_l_y(L)) 
FY(i res_l_x(L) , i res_l_y(L)) 



iresll~y(l 



2-3. MAKE IMAGES FOR PROGRAM CHECK . 

Warped ribcage edge lines and cardiac edge lines are 

overlayed in the imagel_2 and iwt. 



do L=»2,numl 

ix«i res. 



iy=i res_r_y(L) 
ix2-i res_r_x(L-l) 
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iy2-i res_r_y(L-l) 
call line3(imagel_2,ncol , nli n, ix , iy , i x2 . iy2 , i err3) 
call line3 (iwt, ncol , nli n, i x , iy , ix2 ,iy2 , i err3) 
end do 
do L«2,num2 

ix«ires„l_x(L) 
iy-ires_l_y(Lj 
ix2-ires_l_x(L-l) 
iy2«ires_l_y(L-l) 
call line3(image:L_2,ncol,nlin,ix,iy.ix2,iy2,ierr3) 
call line3(iwt > ncol 1 nlin ( ix,iy 1 ix2 1 iy2 l -ierr3) 
end do 

ix*i res_r_x(l) 
iy»i res_r_y(l) 
ix2-i res_r_x(l) 
iy2=l 

call 1ine3(image:L_2 ,ncol , nli n , i x , iy , ix2 , iy2 , i err3) 
call line3(iwt,ncol , nli n, i x , iy , i x2 , l y2 , ierr3) 

ix=i res_l_x(l) 

iy°ires_l_y(l) 

ix2=ires_l_x(l) 

iy2-l 

call line3(imageL2 ,ncol , nl i n, ix ,iy t ix2 . iy2 , i err3) 
call line3 (iwt, ncol , nl in.ix , iy , ix2 , iy2 , i err3) 
if(ires_r_y(numl) .gt.iresjl_y(num2)) then 

ix»i res_l_x(num2) 

iy-i res_l_y(num2) 

ix2«i res_l_x(num2) 



iy2-i res_r_y(numl) 
call line3(imagel_2 ,ncol , nli n.ix.iy . i x2 , iy2 , ierr3) 
call line3 (iwt, ncol , nl i n, i x, iy , ix2 , iy2 , i err3) 
end if 

do j«l,nlin 

ixLrule3(l,j)-0 

ixl_rule3(2,j)-0 
end do 

iyl_rulel«i res_r_y(numl) 
ixLrule2-ires_r_x(l) 
iyl_rule2«l 
ix2„rule2=i res_l_x(l) 
iy2_rule2«*max(ires_r_y(l),ires_l_y(l)) 
do j-iy2„rule2,iyl_rulel 
do 1=1, ncol 

if(iwt(i , j) .gt.O) then 
ixLrule3(l,j)*i 
goto 7577 
end if 
end do 

do i2=ncol ,1,-1 

if(iwt(i2,i).gt.0) then 
ixl_ru1e3(2,j)-i2 
goto 7578 
end if 
end do 
end do 

write(*,*) iyLrulel,ixl_rule2,iyLrule2,ix2_rule2,iy2_rule2 
do j-iy2_rule2,iyl_rulel 

wnte(*,*) j,ixUrule3(l,j),ixl_rule3(2,j) 
end do 
ix-1 

iy»i res_r_y(numl) 
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ix2=i res_r_x(numl) 

iv2»i res_r_y(numl) 
call line3(imagel_2 ,ncol , nli n, i x , iy ,ix2 , iy2 , i err3) 
call line3 (iwt, ncol , nlin,ix,iy,ix2 ,iy2,ierr3) 

ix=i res_l_x(num2) 

iy=i res_r_y(numl) 

ix2-ncol 



i y2-i res_r_y(numl) 
call 1 i ne3(imagel_2 , 



_ __, ncol , nlin, ix,iy,ix2 ,iy2 ,ierr3) 
call line3 (iwt, ncol , nl i n , i x , iy , ix2 , iy2 , i err3) 
call writeimage(iwt, 'chs.img' ,586,586) 
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WE I G HTE D_NO FI T_I NT P . f 

This subroutine can be simplified in future. 



subroutine Weighted_noFit_lntp(ibuf ,xr,npx,npy , iwx.iwy.ps ,dis, 
& n.offset.weight.fitxy) 

Function of this subroutine is to determine the shift vectors 
for the warping based on linear interpolation technique. 

interpolation part is originaly coded by A. Kano. 

Extrapolation part is modified by T. Isnida. 

For the extrapolation in this subroutine, shift vactors of the 

boundary of lung-area rectangular are simply spreaded to the 

outside. 

ibuf INPUT INTEGER VALUES OF POINTS (IN) 

xr OUTPUT SHIFT VALUES (REAL NUMBER) (OUT) 

(npx.npy) BUFFER SIZE OF POINTS (IN) 

(iwx.iwy) MATRIX SIZE OF FITTED SURFACE (IN) 

ps START POINT OF IBUF(1: X, 2 : Y) (IN) 

dis DISTANCE BETWEEN INPUT POINTS (1 : X , 2 : Y) (IN) 

Not used in this subroutine 

n ORDER OF POLYNOMIALS (N < 11) (IN) 

****************************************************************** 

Not used in this subroutine 
weight (npx, npy) WEIGHTING FACTOR (>=0.0, <* 1.0) 
********************************* ********** *********************** 

fi txy (npx.npy) 



Copy of Original shift values for program 
check. (OUT) 



4/9/93 ORIGINALY CODED BY A. KANO 
1/12/98 CODED BY T. ISHIDA 



implicit integerM (i-n) 
integer*4 i buf (npx , npy) 
integerM fi txy(npx , npy) 

integer*4 offset 
integerM ps(2), pe(2), dis(2) 
integerM C, L, DC, DL, SC, SL, 
********************************* 

Not used in this subroutine 
realM weight (npx , npy) 

************************** 

xr(iwx, iwy) 



! original shift values 

! copy of original shift 

! values for program check. 

! OFFSET VALUE OF IBUF 



********* 



WEIGHTING FACTOR 



realM 
real*8 



! OUTPUT INTERPOLATED SHIFT VALUES 
I Size are expanded to actual input 
! image by using interpolation and 
! extrapolation. 
R00, RIO, R01, Rll, DRC, DRL 

x,y ,z 



CLEAR BUFFER 



do iy«l,iwy 

do ix-l,iwx 

xr(ix,iy)»0.0 

end do 
end do 
do iy-l,npy 
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84 
83 



WEIGHTED_NOFIT_INTP . f 

do ix-l,npx 

fitxy(ix,iy)-0.0 
end do 
end do 

SUBTRACT OFFSET 

do iy«l,npy 

do ix«=l,npx 

ibuf(nx,iy)«ibuf(ix,iy)-offset 

end do 
end do 

LINEAR INTERPOLATION 

Make shift vector maps of xr(C,L) and fi txy(ix, iy) . 
fitxy(ix.iy) is copy of original shift vector for program check. 

pe(l)=ps(l)+dis(l)*(npx-l) 
pe(2)-ps(2)+dis(2)*(npy-l) 

do 70 iy*l, npy 

L=ps(2)+dis(2)*(iy-l) 
do 72 ix-l,npx 

C=ps(l)+dis(l)*(ix-l) 



conti 
conti nue 



xr(c,L)«float(ibuf(ix,iy)) 
fi txy(ix,iy)=int(xr(C,L))+offset 



INTERPOLATION 



do 80 iy-l,npy-l 

L-ps(2)+dis(2)*(iy-l) 
SL-L 

do 81 ix-l,npx-l 

c=ps(l)+dis(l)*(ix-l) 
sc*c 

ROO-xr(sc.SL) 
RlO«xr(sc+dis(l) ,SL) 
R01=xr(SC,SL+dis(2)) 
Rll-xr(sc+dis(l),SL+dis(2)) 

L-=SL 

DRC=(Rl0-R00)/float(dis(l)) 
do 82 while (c.lt. (ps(l)+dis(l)*ix)) 
C-C+l 

xr(C,SL)=xr(c-l,SL)+DRC 
conti nue 

ORL-(R01-R00)/float(dis(2)) 

do 83 while (L.lt. (ps(2)+dis(2)*iy)) 

L»L+1 

C-SC 

xr(SC,L)*xr(SC,L-l)+DRL 
DL*L-SL 

DRC-float(dis(2)-DL)*(Rl0-R00)+float(DL)*(Rll-R01) 
DRC-DRC/f 1 oat (di s (1) *di s ( 2 ) ) 
do 84 while (c.lt. (ps(l)+dis(l)*ix)) 
c-c+1 

xr(C,L)«xr(C-l,L)+DRC 
continue 
conti nue 
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81 continue 
80 continue 



EXTRAPOLATION 



do 85 L=l,ps(2)-1 

do 86 C«ps(l),pe(l) 
dl«ps(2)-L 

c xr(C I L)-xr(C,ps(2))+float(dl)/float(dis(2)) 

c & *(xr(C,ps(2))-xr(C,ps(2) + dis(2))) 

xr(C,L)-xr(C,ps(2)) 
86 continue 
85 continue 

do 90 L«pe(2)+l,iwy 

do 91 c-ps(l),pe(l) 
dl=L-pe(2) 

c xr(C,L)=xr(c,pe(2))+float(d1)/float(dis(2)) 

c & *(xr(C,pe(2))-xr(c,pe(2)-dis(2))) 

xr(c,L)=xr(C,pe(2)) 
91 continue 
90 continue 



do 92 L-l,iwy 

do 93 C-l,ps(l)-l 
dc-ps(l)-C 



c xr(C,L)«xr(ps(l),L)+float(dc)/float(dis(l)) 
c A *(xr(ps(l),L)-xr(ps(l) + dis(l),L)) 
xr(C,L)«xr(ps(l) t L) 

93 continue 

do 94 c-pe(l)+l,iwx 
dc-C-pe(l) 

c xr(C, L)-xr(pe(l),L)+float(dc)/float(dis(l)) 

c & *(xr(pe(l),L)-xr(pe(l)-dis(l),L)) 
xr(C,L)=xr(pe(l),L) 

94 continue 
92 continue 

c 

C ADD OFFSET 

C Since the offset value is subtracted from original shift value, 

C offset value is added to final shift value. 

c 

do L«l,iwy 

do c»l,iwx 

xr(C,L)-xr(C,L)+float(offset) 

end do 
end do 
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Subroutine write_imageq 

write Subtracted Image with varioua Format 
coded by Shige 



(♦include 
(♦include 
(♦include 
(♦include 
(♦include 



«stdio.h> 

<string. h> 
<Btdlib.h> 
<time . h> 

"TempSub.H" 



void prepare_FCRimage (Bhort*, int*, int*, int, Bhort* , int, int); 

void prepare JTHVimage (short* , int, int); 

void pre pa re_NOH image (short* , int, int); 

void modi fy_header (char*, char*, DisplayParameter) ; 

void modify_preDispPara(char«) ; 

extern NumTime GetNumTime 0 ; 

extern StudyPara ReadTSubDef File (char* ) ; 

extern FcrStand getFcrStandlnf o (FILE* , char*); 

extern FcrDicom getFcrDicominf o (FILE* , char* ) ; 

extern ThvDicom getThvDicomlnf o ( FILE* , char* ) ; 

extern void putThvDicomlnf o (char* , ThvDicom) , - 

(Ufdef KRL_GNU 

(♦define write_imageq write_imageq 

♦♦else 

(♦define write_imageq write_imageq_ 
♦♦endif 

extern "C" void write_imageq(short * image, int *p_col, int *p_lin, 
char *De£File, 

char * Pre Image, char *CurImage, 
char *SubImage) 

{ 

FILE «fp; 
short 'FCRlmage; 

char *PreFcrStdHeader = new char [HEADER_SIZE] ; 

char *CurFcrStdHeader - new char [HEADER_SIZE] ; 

char *PreFcrDcmHeader = new char [MAX_fcr_DCM_HEADER_SIZE] ; 

char *CurFcrDcmHeader - new char IMAX_FCR_DCM_HEADER_SIZE] ; 

char *PreThvDcmHeader - new char [MAX THV_HEADER_SIZE] ; 

char *CurThvDcmHeader - new char [MAX_THV_HEADER_SIZE] / 

FcrStand Pre Per, CurFcr; 

FcrDicom PreDcm, CurDcm; 

ThvDicom PreThv, CurThv; 

StudyPara studyPara » ReadTSubDef File (Def File) ; 
NumTime numTime » GetNumTime 0 ; 



OUT PUT_STANDARD_FCR_HEADER/ OUT PUT_DI COM_TH VJfEADER 

if (studyPara . outputlmageFormat « OUTPUT_STANDARD_FCR_HEADER) { 
printf ("\a\aOUTPUT S TAN DARD_ FCR_HEADER is not permitted! I\n") / 
exit(O) / 

else if (studyPara. outputlmageFormat OUT PUT_D I COM_TH V_H E ADE R ) { 
prepareJTHV image (image, *p_col, *p_lin) ; 



else if (study Par a. output I mage Format OUT PUT_NON_HEADER ) { 
prepare_NOHimage(image, *p_CoX, *p_lin) ; 

/* " — " 

Read Header Information 

if (studyPara. input Image Format — INPUT_STANDARD_FCR_HEADER) { 
if ( (fp - fopen(CurImage, "r") > NULL) { 

printf ("%s is missing\n", Curlmage) \ exit(O); 

CurFcr - getFcrStandInfo(fp, CurFcrStdHeader); 
f close (fp) ; 

if ((fp - fopen(PreImage, "r") ) NULL) { 

printf("%s is missing\n", Prelmage); exit(O); 

PreFcr * getFcrStandlnf o (fp, PreFcrStdHeader); 
fclose (fp) ; 

else if (studyPara. input Image Format « INPUT_DICOM_FCR_HEADER) { 
if ((fp = fopen(CurImage, "r") ) »- NULL) { 

printf("%s is missing\n", Curlmage); exit(o); 

CurDcm - getFcrDicomInfo(fp, CurFcrDcmHeader) ; 
fclose(fp) / 

if ((fp - £open(PreImage, "r") ) null) { 

printf (**s is missing\n", Prelmage)/ exlt(O)/ 

PreDcm - getFcrDicominf o (fp, PreFcrDcmHeader) ; 
fclose(fp) ; 

else if (studyPara. inputlmageFormat « = INPUT_DICOMJTHV_HEADER) { 
if ((fp - f open (Curlmage, "r") ) NULL) { 

printf ("%8 is missing\n", Curlmage); exit(O); 

CurThv - getThvDicom!nfo(fp, CurThvDcmHeader); 
fclose ( fp) / 

if ((fp - fopen< Prelmage, "r"> ) > = NULL) { 

printf("%s is missing\n", Prelmage); exit(O); 

PreThv - getThvDicomInfo(£p, PreThvDcmHeader); 
fclose (fp) ; 



Determine Output FileName 



if (studyPara. subFName « SUB _FNAME_FIX) { 

sprint f (Sublmage, H %s%s", studyPara . subDirectory, 
studyPara. subFixFName) ; 

else if (studyPara. subFName SUB_FNAME_PATIENT_ID) { 

numTime. year « numTime. year - START_YEAR ; 

sprintf (Sublmage, *%ss%s_*o4d%02d%02d_*02dV02d%02d N , 
studyPara. subDirectory, CurFcr . PatID, 
numTime .year, numTime . month, numTime. day, 
numTime . hour, numTime .minute , numTime . second) ; 

else if (studyPara. subFName SUB_FNAME_PATIENT_NAME_LONG) { 
sprintf (Sublmage , "%s%s . %s . %s . *s . \a . sub" , 

studyPara . subDirectory, CurDcm . PatName , PreDcm . Date , 



PreDcm. Time, 

CurDcm, Date, CurDcm. Time) ; 

} 

else if (Btudy Par a. subFName -= SU8_FNAME_PATIENT_NAME_SHORT) { 
sprintf (Sublmage, "%s%s. *s.%s.sub», 

studyPara . subDirectory, CurDcm . PatName , PreDcm. Date, 
CurDcm .Date) ; 

else if (studyPara. subFName «=- SUB_FNAME_PATIENT_ID_DATE) { 
sprintf (Sublmage, "%ss%s . %s . *s . sub" , 

studyPara . subDirectory, CurThv. PatID, PreThv. Date, CurThv. Date) ; 



/* 

Modify Header Information 



if (studyPara. outputlmageFormat »= OUTPUT_STANDARD_FCR_HEADER) { 

modif y_header< PreFcrStdHeader, CurFcrStdHeader, 
studyPara . eubDispPara) / 

} 

else if (BtudyPara. outputlmageFormat output_DICOM_THV_HEADER> { 
sprintf (CurThv. Date, "%04d*02d%02d" , 

numTime .year, numTime . month, numTime . day) ; 
sprintf (CurThv. Time, "%02d%02d*02d . oooooo » , 

numTime . hour, numTime .minute , numTime . second) 
CurThv. Row - *p_lin; 
CurThv. Col = *p_col; 
CurThv. NBit - 10; 
strcpy (CurThv. Dir, PAJTHV) ; 
putThvDicomlnf o (CurThvDcmHeader, CurThv) ,- 



/« 

Save Subtraction Image onto Disk 



printf (" Sublmage : \t%s\n M , Sublmage); 

if ((fp - fopen (Sublmage, "w") ) NULL) { 

printf ("%s can't be opened\n", Sublmage); exit(o); 

> 

if (studyPara. output Image Format -= OUTPUT_STANDARD_FCR_HEADER) { 
fwrite (PreFcrStdHeader, sizeof (char) , HEADER_SIZE, fp) ; 
#if def SUN_SPARC_S0LARIS_1X_ 

fwriteT(char*)FCRImage, sizeof (short) , FCR_WX ♦ FCR_wy, fp) ; 
((else 

fwrite (FCRlmage, sizeof (short) , FCR WX * fcr_wy, fp) / 
(♦endif 

delete FCRlmage; 

else if (studyPara. outputlmageFormat = - 0 UT PUT_ D I COM_TH V_H E A DE R ) { 
fwrite (CurThvDcmHeader, sizeof (char) , CurThv. HeaderSize, fp) / 
♦tifdef _SUN_SPARC_S0LARIS_1X_ 

fwrite ( (char* > image, Bizeof (short) , «p_col * «p__lin, fp) ; 
(♦else 

fwrite (image, sizeof (short) , *p_col * *p_lin, fp) ; 
♦♦endif 
} 

else { 

((if def __SUN_SPARC_S0LARIS_1X_ 

fwrite ( (char* ) image , si zeof (short) , *p_col * *p_lin, fp) ; 
(♦else 

fwrite (image, sizeof (short) , *p_col * *p„lin, fp) ; 



((endif 

} 

fclose (fp) ; 

/* 

Change File Protection 



system ("rm -f temp.cmd"); 

if ((fp - fopen ("temp.cmd", "w") ) =- NULL) { 

printfC\7\7temp.dat can't be opened\n"), exit(o),- 

fprintf(fp, "chmod 666 %s\n", Sublmage); 
f close (fp) ; 

system ( "chmod +x temp.cmd"); 
system ( H temp . cmd " ) / 
systemC'rm -f temp.cmd*)/ 

/• " 

Change Display Parameter of Previous Image 



if (studyPara. input Image Format INPUT_STANDARD_FCR_HEAOER i& 
studyPara. orglmageTransfer on 
studyPara. preDispPara -«= BLACK_OUT) 

modif y_preDispPara( Prelmage) ; 

/* - - — 

DELETE 

- */ 

delete PreFcrStdHeader; delete CurFcrStdHeader; 
delete PreFcrDcmHeader; delete CurFcrDcmHeader,- 
delete PreThvDcmHeader; delete CurThvDcmHeader/ 
) 

/**-- - 

Subroutine p re pare_NOH image 

Byte -swap pixels, if necessary. I'm not clipping to MaxGray, 
because I don't think that the code did so before (and I'm 
trying to mimic old code behavior) -- Roger 



void pre pa re_NOH image (short * image, int col, int lin) 

/* With this file format, pixels should be stored as high-endian. 
Thus, 

if the machine is low endian, we need to byte swap. */ 
int shouldByteSwap - _isMachineLowEndian; 

if ( s hou 1 dBy t e swap ) 

for (int i - 0; i < col * lin; i++) 

imaged) - << (imaged]) & oxFFOO) >> 8) | 
(( (image [i] ) & OxOOFF) « 8),- 

} 

} 

/* — — .... .-.-..« 

Subroutine prepare_FCRimage 

Expand, Flip and Inverse Gray Scale for FCR Format 



void prepare_FCRimage( short * image, int *p_col, int *p_lin, int 
ratio, 



short *FCRImage, int mszx, int mszy) 



/• " ........... 

Subroutine modi f y_header 

Modify Exam date in FCR Header and Determine Output FileName 



void modi fy_header (char *PreFcr9tdHeader, 
char *CurFcrStdHeader, 
DisplayParameter BubDiBpPara) 



/ — - ■ 

Subroutine modif y_preDiapPara 

Modify Display Parameter of Previous image to BLACK_OUT 



void mod ify_preDisp Para (char *PreFName) 



/ . = .- = -— ....... 

Subroutine prepare_THVimage 

Byte Swap and Inversion Gray Scale 



void pre pa re_THV image (short * image, int col, int lin) 

/* With this file format, pixels should be stored as low-endian. 
Thus, 

if the machine is high endian, we need to byte Bwap. */ 
int shouldByteSwap - i_isMachineLowEndian,- 

int i; 

short MaxGray - 1023; 

for (i - 0; i < col * lin; i++) 
{ 

if (shouldByteSwap) 

image [i] - (( (image [i] * MaxGray) & OxFFOO) >> 8) f 
(((imaged] A MaxGray) t OxOOFF) « 8) , 

else 

imaged] - image [i] A MaxGray; 

} 
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Do yon need access to authoritative,, up-to-dare information on PACS, 
electronic: imaging, and radiology information systems? Would you like 
to view exhibits' -of leading radiology computer products and services in 
a relaxed atmosphere? If so, plan now to attend SCAR 2003, the 20th 
Symposium on Computer Applications in Radiology, which will he held 
in Boston, June 7—10, 2003. The Symposium is the longest running 
series of meetings on radiology c omputer applications, Since the first 
conference in 1964, SCAR has been the gathering place for experts in 
the field and those who want to learn from them. Attendees tell us chat they enjoy the diversi- 
ty of educational programs, the interactive and dynamic sessions, and the extensive technical 
exhibits. Despite the growth- of the meeting in. recent years, SCAR retains a collegia! and 
relaxed atmosphere that attendees appreciate, This year, the Program Committee has 
continued to strengthen and expand the program. Highlights of SCAR 2003 include: 

* Keynote address by Mr, Ray Kurzwdl, pioneer of computer-based speech recognition 
systems, author of The Age of Intelligent Machines and The Age of Spiritual Machines, and 
a 2002 inductee into the National Inventors Hah of Fame, 

* An updated SCAR University, a comprehensive didactic course in computet applications 
in radiology Introductory, intermediate, and advanced lectures will cover the latest 
information on PACS> RIS, CAD, speech recognition and CR/DR. Many institutions 
bring their entire PACS team — administrators, OOs, radiologists and technologists — >■ 
to SCAR U for the latest information on technology implementation in radiology. 

« Closing Session on the developing information explosion in radiology, How can .radiologists 
deal with the burgeoning numbers of images produced by new technology? Representatives o\ 
NASA, the CIA, and. the entertainment industry will explain how they manage huge data sets. 

» Mote than 75 original scientific papers, posters, and demonstrations on all aspects of 
computer applications in radiology, from image processing to PACS implementation to 
speech recognition systems, 

* lours of electronic imaging activities at Beth Israel Deaconess Medical Center, Brigham 
and Women's Hospital, Children's Hospital of Boston, Massachusetts General Hospital, 
and New England Baptist Hospital Special sessions delivered by radiology informatics 
faculty of Boston medical schools. 

* A large exhibit hall filled, with technical exhibits of leading radiology image management and 
IT vendors. More PACS vendors assembled than any other conference except the RSNA. 

Whether you are a radiologist considering incorporating electronic systems into your practice, 
a CIO or administrator evaluating the costs and benefits of such systems, or a computer 
scientist involved in radiology research, SCAR 2003 will provide the up-to-date information 
you need Please review the enclosed program and plan to attend this premiere meeting for 
users and developers of compu ter-based equipment and applications in medical imaging. 
CME credit is available for attendees. We look forward to seeing you in Boston! 




By r n Wi 1 1 i a m so n , j r. , M D 

Chair, SCAR Program Committee 



Boston, Massachusetts * »jnf:.7-10. 5 003 * www.scsmst.om 



The Symposium for Computer 
Applications hi Radiology is an annual 
scientific and educational meeting 
presented by the Society for Computer 
Applications In Radiology (SCAR), and 
it is designed to provide important 
information to professionals who use, 
buy, or develop computer-based equip- 
ment with applications in radiology. 
Is features the most recent developments 
in medical computer applications, 
particularly die advances in computer 
technology that improve the clinical 
practice of rad iology and the effective 
management of health care resources. 



Upon con? pie -ion of the program, 
participants will be prepared to: 

* Determine which computer applica- 
tions can contribute to their practice 

* Evaluate components of electronic 
image and information management 
systems 

* Prepare for the changes that will 
result from implementing computer 
applications in their departments 
and institutions 

■* Choose, promising areas for future 
research 




Physician: 

This activity h as been plan tied and 
implemented in accordance with the 
Essentials and Standards of the 
Accreditation Council for Continuing 
Medical Education through joint 
sponsorship of the American College of 
Radiology and the Society for Computer 
A p p 1 i ca dons i n Rati io 1 ogy. 1 h e A n i erica; ; 
College of Radiology is accredited by the 
ACCME to provide continuing medical 
education for physicians. 

The ACR designates this educational 
activity for up to 28 hours of Category ! 
credit towards the AM As Physician's 
Recognition Award, Each physician 
should claim only those hours of credit 
that he/she actually spends in the 
educational activity, 

Technologists: 

The American College of Radiology 
(ACR) is approved by the American 
Registry of Radiologic Technologists 
(ARRT) as a Recognized Continuing 
Ed ucatio n Eva 1 uat so n Median i s rn 
(RCEEM) to sponsor and/or review 
Continuing Medical Educational pro- 
grams for Radiologic Technologists and 
Rad i a t io n ' The s ap i s I S . 

The ACR designates this Continuing 
Medical Educational Activity as meeting 
the criteria for up to 28 Category A credit 
hours of the ARRT. Each technologist 
should claim only those hours of credit 



that he/she actually spends in the educa- 
tional activuy 

Medical Physicists: 

The American College of Radiology is 
accredited by the Accreditation Council 
for Continuing Medical Education to 
sponsor continuing medical education 
credit activities. 



The ACR designates the following ed 
tionai activity as meeting the criteria for 
up to 28 hours of Medical Education for 
Physicists (MEPS) credit. Each medical 
physicist should claim only those hours 
of credit that he/she actually spends in 
the educational activity 

Presenters at this conference will disclose 
any conflict of interest or their intention 
to discuss off-label nse> if applicable, in 
accordance with ACCME Standards and 
FDA requirements. Conflict of interest: 
will be disclosed either in print or verbally 
at the beginning of the presentation. 





• Radiol 09 his and other physicians 
who aire considering implementing 
R:S, PACS, speech recognition, or 
teieradiology systems in their prac- 
tice. (The 'Trogranvat-a-Giance'' 
i nd ica tes sessions of particu! ar 
interest to practidnq radiologists 
with ah asterisk-*)- 



* Radiologists, imaging physicists., 
and others who are interested 
in learning about cutting 
edge electronic imaging 
developments 

* Techhoiogistsf M€5 administrators, 
and those who are interested in 
becoming PACS administrators 

* C£D% CrO% GO% and healthcare 
adnnttistrators si institutions that 
are considering implementing or 
replacing PACS or Radiology 
informal; ion Systems 

* Computer scientists, IT professionals,, 
and engineers who want Informa- 
tion about the latest research in 
computer applications in radiology 

* Anyone who wants access to 
practical information about 
imaging technology in an open, 
collegia- environment 
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Raymond Korzwml 
Founder. Chairman and CEO 
Kurzweii Technologies, Inc. 

Raymond Kurzweii is an inventor of com- 
puter-based speech recognition technology 
arid futurist anchor of 
the best selling book, 
'The Age of Spiritual 
Machines, When 
Computers Exceed 
Human Intelligence 
as well as a 2002 
inductee into the 
National inventors 
Hall of Fame, 

In "The Impact of 21st Century 

Society," Mr. Kurzweii will investigate the 
implications or the accelerating knowledge 
of technology and workings of the human 
brain. Once non-biological intelligence 
matches the range and subtlety of human 
intelligence*, ir will necessarily soar past k 
because of the continuing acceleration of 
information- based technologies, as well as 
the ability of machines to ins candy share 
their knowledge. 



Intelligent nanorobots will be deeply inte- 
grated in the environment, our bodies and 
our b tains, providing vastly i in proved health v 
extended longevity full-immersion virtual 
reality and enhanced human intelligence. 
The implication will be an intimate merger 
between the technology-creating species and 
the evolutionary process it spawned. 
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This is a session highlighting the 
SCAR 2003 theme of Information 
Explosion: Embracing our Furu/v 
and will feature exploration of the 
management of large data sets by 
die intelligence, space exploration 
and entertainment industries. 

Medical imaging data has increased 
radically in both the size of the 
examination as well as the number 
of examinations, This has resulted in 
display and analysis of increasingly 
greater amounts of i mage data by a 
radiologist each day. This situation 
cu trendy appears unbounded and 
portends disaster for the future. The 
purpose of this session is to examine 
how other disciplines faced with similar 
challenges of large amounts of image 
data have dealt with these situations. 
SCAR intends for this session to spark 




strategic thinking and debate regarding 
a shift in the current paradigm used for 
medical image interpretation. SCAR is 
prepared to champion tins cause and 
provide leadership to address and solve 
this dilemma. 

L®&rmn%$ Objectives: 

* Understand the problems associated 
with human viewing of large image 
data sets. 

* Learn how other disciplines have 
solved problems associated with large 
image data sets, 

* Engage in new methods for the 
interpretation of large image data 
examination in medical imaging. 
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Presented by pioneering radiology informatics faculty of Boston medical schools 



Saturday, June 7 
Special Session I 
10:00 AM - 11:45 AM 



Monday, June 9 
Specsa! Session §££ 
10:00 AM - 11:45 AM 



Monday, June 9 
Special Session IV 
1:15 PM~3:00 PiV? 



S. Tod Treves, MD 

Session Chai> * 

Children s Hospital of Boston 
Chief, Division of Nuclear Medicine 

Tins session will present the business 
perspective on assessing the value of P.ACS. 

Sunday, June 8 
Special Session H 
10:00 AM ~ 11:45 AM 



David VV. Bates, MD* MSc 

Se&foss Chair 

AJedical Director ofC/Jnk&f ami (Jiialiiy Analysis 
fra tners Hex/than* System 

g*&rfsci pants; 

John Halamka, MD 

Chief inwrtnation Officer 
Caiegroup Healthcare System 

Giiad J. Kupcmian, MD, PhD 

./4 ft? Wtfttf: 

Clinical Informatics Research and Development 
Partners Heallhcatv System 

This session will describe clinical decision 
support in two Boston-area integrated 
delivery systems. Dr. Ku per mart will begin 
by describing the basics of clinical decision 
support. Next, Dr. Hafamka will describe 
Garegroups efforts in this area. Dr. Bares 
will conclude describing evidence that 
clinical decision support makes a difference. 



Describe different levels of cl inical decision 
support, from simple to more complex. 

1 Describe evidence that clinical decision 
support improves the efficiency, quality 
and safety of care. 



RancEirt: Khorasam, MD 
Session Chair 

Vice Chairman, Department of Radiology 
Medical Dfmxot; Mufti -disc ipiinary PA CS 
Assistant Professor of Radiology 
Harvard Medical School 
Biighasn and Vvbmecfs Hospital 

Participants: 

Thomas H, Lee. MD 
Medical Qii-ectc* 

Partners Community HealtnCaie. Inc. 

Associate Editor New England journal of Medicine 

Associate Professor of Medicine 

Harvard Medical School 

Steven E. Seltzer, MD 
Chairman, Department of Radiolog y 
Siighan: and Wo a tens Hospital 
Phillip H Cook Professor of Radiology 
Ha; yard Medical School 

Health care delivery systems are focusing 
on reducing medical errors and improving 
quality of care. Medical imaging will 
increasingly become a focus of these efforts 
due to rapid growth of imaging technolo- 
gies and applications. Radiology has a 
unique opportunity to lead such efforts. 
We will discuss how leveraging information 
technology solutions can help transform 
radiology's perceived role of technology 
provider to chat of a knowledge provider 
in patient care. 

Learning Objectives: 

• Recognize factors contributing to 

ove r use/ m tss •use/' u n deo use o f i magi ng , 

• Discuss medical errors in the context 
of medical imaging and rbeir potential 
impact on health care costs and quality 

• Use a case example to describe how 
radiology can leverage information 
technology solutions, specifically 
Computerized Physician Order Entry 

to help deliver knowledge at the point of 
care to reduce errors and improve quality 
of care while im proving efficiency. 



yieaicai decora 

Keith J. Drever, DO, PhD 
Session Chair 
Vice Chair, 

Radiology Computing & Information Sciences 
Massachusetts General Hospital 
Partners Health Care System, Inc. 



Participants: 
John P Glascr, PhD 

Vice President and Chief Information Officer 
Partners Health Care System inc. 

joins Halamka* MD 

Chief In format. ion Officer 
Caregroup Healthcare System 

Paxil j. Chang, MD 

Director. Division of Radiology Informatics 

University of Pittsburgh Medical Ceniec 

Elaot L. Siege*. MD 

Vice Chair 

Imaging Information Systems 

University of Maryland School of Medicine 

Chief Imaging VA Maryland Healthcare System 

This session will summarize the current status 
and existing limitations in clinical practice for 
RIS/HIS integrated, enterprise-wide EMR. 

Monday, June 9 
Special Session V 
3:30 PM ~ 5:15 FM 



David Avrins MD, PhD 
Session Chair 
Professor of Radiology 
Chief, Abdominal imaging 
University of Utah Hospitals & Clinics 

The session will address the issues involved 
in renewing or even replacing major 
co in purer systems in radiology (i.e. PACS 
or RIS). A broad range of questions will 
be addressed: Which vendor upgrades do 
you accept? How do you finance a whole 
new system? How do you switch to a new 
system without bringing the radiology 
department to its knees? 



70m .Svmoos'ium for Corn out?/ Aonllomoos. in Radsoioov 
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Saturday, June 7 
11:45 AM -1:15 



Moderator; 

Paul G. Nagy, PhD 



Me- 



of Wisconsin 



Steve Chechet 

Applied t i&n A nami 

Applcwn Medical Ceriser/Thedacare 

Charles Soda RT(R)(CT')(QM) 

PA CS System Administrator 
Baptisi Health 

Mare Deshaies 

Load PACS Service Engineer 

GE Medical Systems 



Are you a PACS administrator who wants 
to glean secrets of success from PACS 
administrators who make it look easy? 
What is the career development: path for 
PACS administrators? PACS is a constantly 
changing Held, so if von do not stay 
up-to-date, you will become obsolete. 
This session will present several successful 
administrators who will discuss what you 
can do today to stay ahead of the curve. 

Learning 0bj<?£t$v®s° 

* Describe traits and prerequisites to 
he a PACS professional. 

* Learn valuable job survival .skills to 
succeed as a PACS professional. 

* Explore tools and tips on how to 
become a PACS expert. 



Saturday, June 7 
11:45 AM - 1:15 PSVS 



Moderator:. 

j. Anthony Seib$rt, PhD 

Univeciity of California Davis 



R- L. "Skip" Kennedy, MSc 
Kaiser Pentt&nente, Sacramento 

Steven C. Horii, MD 

L'Sii v£! ?1 11 Of renTiSy / f-'i f i a 

Public domain software, including freeware, 
shareware and open source development 
opportunities is a resource that can provide 
significant assistance to implemented and 
users of PACS. Tins session will describe 
methods., strategies, and the discovery- 
process of finding software and information 
from simple DJCOM image viewers, data- 
base management tools, PACS administra- 
tive and QC tools, DICOM libraries, 
PACS FAQs, to available R.FP documents 
and open source code. Open source code 
development for use and contribution by 
che public sector provides a f^nil^ ground, 
for creative implementation and sharing of 
ideas. Demonstration of specific software 
programs during the session will illustrate 
its a n y o f th ese creati ve a n d s ra te-of- 1 he- a rt 
capabilities; 

Learning Objectives; 

* L earn about the public domain software 
available from the Web and other 



resources. 




Gain an understanding or how 
to access, download, and imple- 
ment specific freeware and 
shareware t on tines and retrieve 
useful information and sugges- 
tions about PACS and infor- 
matics issues. 

Demonstrate the capabilities, 
advantages, and implications of 
open source software. 



Sunday, June 8 
11:45 AM - 1:15 PM 

HOW Not tO C:.i :••/£• 

a Scientific Talk 

Presented by the SCAR Research 
and Development Committee 

JV8 <s d © r«st;o t z 

Kathertne P. Andriole, PhD 

universiiyof 
Chair. SCAR 



John A. Carrino, MD, MPH 

fi! igitrDTi and \' J VOtTieJi'i fio.'tpifcif 

Bradley j. Erickson, MD. PhD 

iVisyo Clinic, t^ochesier 

Bruce I, Reiner, MD 

University of Mwyland 

This session will illustrate the proper 
way to o ra \\ y p re sen t a scs en. title paper. 
Examples of good and poor presentations 
of the same paper will be given. Ample 
time will be available to analyze each 
presentation, pointing out the positive 
and negative aspects with suggestions for 
improvement. The audience will be invited 
to participate in the discussion. 

tearrsmg Objectives: 

a Learn the basic elements required to 
construct a solid scientific oral paper 
presentation. 

* Become aware of common mistakes 
and potential pitfalls to avoid in giving 
sc. i e n t j fs c p resen ratio ns . 

* Recognize good and bad practices in 
sc \ e n 1 1 fi c p resen tat i o sis to fac \ \ i rate 
improving the creation and delivery 
of presentations in the future. 
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Sunday, June 8 
11:45 AM - 1:15 PM 

IHE Uptime Integrating 

the Hea nh c a re E nmrpdse: 
Workflow and 
How You Get It 

An RSNA iHE Inrtistive Presentation 

l&toder&tor; 

David PiraiaiG, MD 

Cfc veJand Clinic Foundation 

David Channin, MD 
North western fvfernoriai Hospital 

Paul Nag>\ PhD 
Rroeden Hospital 

Kevin O Donne II 
TosfaZM? Medical Systems 

John Paganini 

IDA 'Systems Corporation 

Charles Pari** 
C£ Medh*! Systems 

IHE is an initiative of IT and healthcare 
professionals, and industry to implement 
standards to solve real-world cluneal 
problems. 3n radiology IHE Has defined 
standards-based transactions ro support 
the workflow of typical patient encounters 
and numerous orher enhancements to the 
efficiency of clinical care. IHE makes it 
simpler for vendors ro adopt these solutions 
and for purchasers to specify them when 
acquiring systems— reducing the difficulty 
arid cost of tightly integrating systems. 
Learn what you need ro know ro pur these 
benefits into practice today. 

* Learn the benefits of a tightly integrated 
workflow in radiology, 

* Understand [he constantly expanding 
scope of integration capabilities available 
through IHE. 

* Draw on the experience of users who have 
success fully integrated imaging and infor- 
mation systems with IHE, 



Monday, June 9 
11:45 AM - 12:15 PM 

SCAR Mi rn tie rship 

meeting and 

Fellows Induction 

12:15 - 1:15 PM 

3rd SCAR Research and 

Development Committee 

Symposium 



CRT "vs. i Mpixel LCD 
Displays" 

Presented by the SCAR Research 
and Development Cornrmittee 



Kathenne R Andriole, PhD 

Lfrfftersity of California. San Fmncisco 
Chair- SCAR Reseaith and 
Development Committee 

Steve C. Longer, PhD 

M*yo Clink, Rochesur 

Bradiey j. Erickson. MD. PhD 
Brian j. Barfholrnai, MD 
Ken A. FeUerly, MS 
Mayo Clinic, Rochester 

Eliot L. SiegeJ, MD 

University of Maryland School of Medicine 

John A, Carrino, MD 
Brigh&rn and Wotnem Hospital 

The E&cD study is aimed at perforating 
a receiver operator characteristic (ROC) 
evaluation of 5 M pixel CRT vs. the evolving 
3 Mpisd LCD display. The question to be 
answered is, "Can radiologists perform 
diagnosis as accurately on the currently 
available 3 M pixel LCD technology as they 
do whir current 5 M pixel CRT displays?" 
Initial results from a multi-institution, 
multi-observer study wilt be presented. 

Learning Objective: 

* Learn the basics or statistical concepts, 
experimental design, and informed 
display choices. 
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Tuesday, June 10 
7:00 AM - 8:30 A&/! 

: arord Teati • \ • g 
Took: Old Dogs ami 
Nievv Tncks 

Presented by the SCAR Resident and 
rellows Education and Training 
Committee 

Moderator: 

David k Chanmn, MD 
Ncrihwesiern University Medical School 
Chair: SCAR Resident Education 
and Training Committee 

Brian j. Barihoirnal, MD 

Mayo- Clinic, Rochester 

Barton E BramteUer, MD 

University of Pittsburgh Medic fit Center 

David S. Hirschorrn MD 
Massachusetts General Hospital 

Khan M. Skldsquu MD 

Ceisinger Medicaf Center 

Pc-.rticipa.ru. s will have an opportunity 
to Hear a summary of existing elec- 
t-tonic teaching tools in radiology: 
There will be a chance to discuss 
individual experiences with these 
tools, A focus will also be made on 
functional requirements for new tools 
to be developed in the fixture. 

Learning Objectives: 

* Understand the electronic reaching 
.-cools available now, 

* Describe what Is missing from teach - 
ing tools. 

* Understand technologies available 
ro develop new tools. 
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tor Yo^oi "ow s ~>Hh»o:>::$y y:|a.-# ; - 

he advancement of conrpneer applica- 
nt rioixyin n^iurmc- cornjnnes io nsov^ : : 
at a; breach taking fate, and no"&*$c;iplhie is 
more atreacd (cn -nncc a- -he enmng c<ige) 
•:h;?n nxlknogy 

SCAR has been torUnnKCxto :nnne of 

>.hc heading re:-oarc:heni ;nid adoprec:; of nhcae: 
technologic? wnhin ks corn; fluency; and 
these cxptry; have served as edincn:orc> wUhln 
SCAR U-nversvcy. The dnnad and research 
vopics .of special hnerest to the rnernhcr< of 
SCAR coot in ne to expand in u:- new arenas 
suclvaa eoininivei anded decgnocis, rnruc-- : 
rnrcd reporting, speech recognition, %8 nd 
:^rategies fat review and dHerpceta- ion of 
Urge ;n:d corn pi ex nnage d;ncneo;. 

W;rh vbe increasing adoption, ot engira; 
radiography and PAony nbrde;n on aging 55 
nunnng hon> a a early adopter - to- an cane 
•redojoy phase, \X\ren: v/as pcevaneay the 
exdnsoc; domain of tertiary care a< adecmo 
racdide: : ; is -now entering iree the dotnain 
of :>iXi<i\\ and roedkirr: s:?.e.d eornrnornty; 



ho:;p:« aUnAs the electronic medical record 
also becomes,; realiyy\ these digntai applies • 
Cams will become, necessary component:; to 
achieve dns paperless himie^s paradigm. 

At d>e saom cmle, dor society has ^spanned 
irsibase -o inelnde healvhcam podeseionais 
;n a vddc array- of oeeopaoons inch-ding 
ohy:d cists, technologists adrmmsncnors, 
engineer::, ph>a;ic:ans. irdor-navioe mehrmd 
ogy specaaiasrs, and oxlmoy consnU;nns, 
\X'e sveieome th.*s expanded member bcce ; 
which serves to faci orate the sharing of 
ideas across the entire healthcare spec? rum 

In response to rhe • apid. de s o:iopniern:s in 
the tkld : SCAR University continues na 
expand its enrricniayo meet these rapid iy 
expanding educadomd cisabeoges. We nave 
added a namber of new edmaoonal trades 
to ..out pro^mny while expanding rhe edu ca- 
tion al program to go above and beyond the 
annoai meerma;. Snore ot these new edoca- 
>nn en ndbaoves can be tonnci omhne at 
wswv:scarne- org : as web as in print with nor 




odor .SVv:<ad MD /mo £nx? m-m-v. A/D 
Co'C/ttfK SCAR U/hvexhy 



Ot doer series, which one; odes boot publica- 
tion* to dare (Security. Electronic. Arch ice. 
Quality Assurance, aod nan: newest addit ion 
on the topic of Electronic Reporting},: 

We'wo-uld hbe to thank you tot being an 
active member o* SCAR hbnversby and' • 
liope yon enioy rhe meeting- We 'continue 
to look for new ways to tnert year corner 
rinnai needs and weleorne any suggestions 
or feed-back you have to offer. 




Will prodde attoodeos witb thtebecacs and fnnnatn^nto: infornnrtioo used an everyday application or oho tochnoioojos. 



■"" ■: - : A Ay- '. • - : • r .-. 
10:00 And - 11:46 Ami 

Hil; 111 

The Esserstiais of CR & DR 

Katbcrhic Andrkde, PhD 

CfojyefZity- of Czijfyr.<iJ<f; S<;a Fnuschc,-; 
1Q:0t) AM - 10:30 AM A 

ii^l i|i|ii 

Use of D^cssjon Support Tools 
a ^Today's CHnical Practice 

Curtis Langlotz, MD. PhD 

Unh i ! rxu. v at PcnnsyJviwiA 
10:30 AM - 11:00 AM 

CR/DR Workflow :Optsmsxatk>n 
Anna Ghaeko. MD 
The L&hey Citmc 
-11:00 ASW » 11:50 AM 

o:1o Aeelh.. go)0 Phd 
•104 

THe lCD vs. CBT Conundrum 

Mk:b.aed Idyon, PhD 

f /(\'!sy rose/ / A\7/V/j Syite/?) 



QuaHty Control 

John R(?nn(dri, MS 

,V>.oO /7kto./r Systems 
3:4y PM ~ 4:15 

Buyer's Ouiete to HIS Purchasing 

vViHism MorOgonaery, C(G 
S/mids tfealffiCarc, Inc. 
4:15 PMd 4:45 P?V? 



10:00 AM - 11:45 Ahd 
1sl» N 

JntrpdMCtipn to Ustworkm^ 

■ Paul C hang, MD 

University of Parsburgh Medkvi Center. 
10,00 AM - 10:30 AM 

\% Dsn stall 1V§^mm€3>^rapNy 
Ready for Fr I me Time? 

TEA c-c; 

10:30 AM > 11:00 AM 



Jrfttrodwctsors to Speech Recogrsjtlon 

Stephen He m^an, MD 

Tviwno &>ne/<if f-fixp.te:i 
11,00 AM 11:30 AM 

1:15 Pnd ^ 3:00 ^ 

110 

Digital Image Capture Usmg ^ACS 

Richard Wiggins, HI, MD 

I ?>iiVS!?Jrv of Utah School ufhUdnine 

1:15 Pftf - 1:45 PM 

111 

larirod wct|o« to Storage: 
Does Six© H<e«8Hy flatter? 

Edward Smtih ; DSc 

[Ji!<i*.rs//y of Rochester Medico/ Ckikv 

111 ; : ._ 

Dessgru'mg a^d Red^signirsg the 
Dsgi tat Radiology Reacts og Room 

Eliot Siegei, MD 

Bafdmorv VA 'MC/urtivenhy of- Mzrytenfi 
2:15 PM- 2;45 9M 
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: thzw ?-:ehior sessions arv organized by topsc -and will allow participant:; to explore digital imaging technologies in greater depth These dotted 
and corr-piex dtdsctk offerings- are birred at the lechnoshiies and :r;or<> experienced . user:; : of the te>::hnoiooy. Courses 201, 30 1, 401 through; 
212.. 312, 412: parcel topics 101-112 in the 100 level introductory course session 2:3, 313, 413 de^i with an additional topic, security. 
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Design eom^erauons 
$ n a Ft frrs less Ente rpr be 



Eliot L SiegoU MD 

University of Maryland 
Bait i mote VAMC ; 
Section 12 Head 
10:00 AM ~ TT.4S AfVi 



Tho DigstaS §magmg Depart sm^rtt; 
An Architect's Perspective 

Morris Siem t PAIA, FA CI LA 
The Stein- Cox Group .Architects 
10:00 AM ~ 10:30 AM 



8ac*3o*<K§y Dop<srtm#nt 
Redesign In the Digital £ra: 
A Case Study Approach 

Bin Rosenberg, FA1A, PACHA 

Sadtl; Group Ai -aided* 
: 10:30 AM - 11:00 AM 



lookmg mtft the Crystal 8a Si; 
The Radiology Department of 
the Not ?#o Octant Foture 

Mark MorHa 
OF Medirai Systenis 
11:00 AM -• 11:20 AM 



Bruce I, Reiner, MD 
Uni versiiy of Maryland 
Section 3 Head 
3;1S PM 5:00 PM 



trrferpret^tiosr Strategies 
for Large imaging Dafasets 
Eliot Siege! , MD 

l))<ivenii) • of Maryland 
VA Maryland Heaiihcasv System 
3:15 PM -> 3:45 PM 

The U®w f^aradsgm m 
&i&£tronic Reportsog 

Bruce Reiner, MD 

Uf iiwrsifr of Maryland. 
3:45 Pft4 ~ 4:15 PM 



Dessgrnrsg Software Too§s for 
Radio^^j^t Woifkfbw Ootjmteatsoo 

Fujittiin Mttikxs Sysi&its-, USA ; 
; 4.15 P!tf - 4;45 PM 




fsJew frontiers m 



Information Systems 

li^^^^jii; Janice Hcmc-yroan-Bw Phi> 




Kalherine P. Aiida ioie, PhD 
University ofCoiirbcnM Sin; Hanoiseo 
Seer ion J Head 
V 10:00 AM - 11:45 AM 



p^rchasi^cj and imo&emerrfcatsori 
Strategies for Digatal 8adn>graphy 

R.L. "Skip" Kennedy, MSc 

Kaiser Few™ 

10: 00 AM - 10.30 AM 

SgsecaaSfy Applscatsorts 

: Xalherine Aiidrioie, PhD 

' .' University -of Qil.iloay.ia. San Uancisro 
10:30 AM - 11:00 AM . 

mm 

&R*w Technologies so 
DsoJtaJ 8admgr*mhy 

j. An- horsy Seihert; PhD 
Urn versify ofCofifocnte. Davis 
11.00 AM ~ 11; 30 AM 

Ra#afo:gji$t Decision 
Support Tools 



Bradley j, Enekson, MD, PhD 
Mayo Cff nicy Rochester 
Sect jos < S Head 
1:15 PM - 3:00 PM 



Clinical AppHcatsorss of CAD 
liefer MaeMabon. MD 

University of Chicago 
1:15 PM ~ T4S P:V! 

BO 2 

Use of Advanced Image Processing 
Algorithms for Jroacjo Erihanc^ment 

Brpiey Erickson, MD ; PhD 
Afetf Clinic, Rochester 
1:43 PM - 2:1 5 PM 

£ioura8 Networks and Fussy Logic 

Susan Wbod, PhD 
jimmy Roe! * rig . PhD 

R2 lk}ye<o.lOf-y t trie. 
2:1 SPM PM 




\ ■ i : . Se- ''.);); > 6 Head 

a^O PM - S: i$ P? v 4 
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Irvforrriatks so tho Cwrrorit 
Dicjit^i ftadJofogy Practice 

^ Chus Si^Uov}:. MD : 
University of Florida 
3. J0 f { M ~ 4 00 Pfvl ;F 

tntoqr&tlon of RSS and PACS 

Meryl: r-rnsc : 

frltxf/cal imaging Consn/ta/ns, /oc 

4:00 m~ 4;30 PM 

Advaoced information System 
Fymrtsooa^ty $ ^teroperabii^y, 
and Jsswes 

jariice Moneyman Buck, PhD 

Uhive>siiy of Florida 
"4:30 0W - 5:00 PM 



Security 




Samisel j; Dw>-e8-, 1H, PhD 
ioiivenity of Virginia rfealih System 
Section .13 He-Kid 
3:30 ?M - 5;iS PM 



213 

HSFAA Security ypdato 

Kv5stin Hughes. JD 
SG&A Conso'nng. inc. 
3:30 PM » 4:0C; PM 

Security Strateglos for 
Wire^s& T<?chno^oo?es 

Samuel Dvyyer, Ul f PhD 
^.;W/: •:>/ vfcoinjz Hoith Synem 
4 00 PM - 4-.30 PM 

4-i3 : ; 

Cre&tmg a Bwliet-Proof 
D%ata? Jmagirjg fttetwork 

Herman Oosterwijk, MS, MBA 

OTedHnK. 

4:30 PM - 5:00 PM 



1 



Workstation Deskpi 
and Quality Control 




5:30 PM 5:1 5 PM 



Assesaroerat of Display jserfarmarsce 
for ftftediksi Smagm*? Systems 

Andrew Maidment, PhD 
University of Pennsylvania 
3:30 PM -- 4:00 Pftf 

De^elooirsg ars Errterprise-Wide 
Monitor QC Program 

Manuel ArrcoJa, PhE> • 
Lfnixecsitv of Florida 

Am pm - A.m pm 

Com^nso?i of Color arsd 

Michael Dyrm. PhD 

' Henry Ford Health - System 
4.30 ~ S;00 . 



Conne^t^vltv/Metwork^nq 

: : : : : : x : : : : ; : : :': : : : : : : : : : :'. ' v." -v> ;X;X;X:X.' : : 

Paul J. Chang," MO 
University of Pittsburgh Medical Center 
Sort ion 7 Head 
10 00 AM - 11;4S AfVE 

Update on SHE 

David Channin. MD 

Northwester/: Cniver^ty Medical School 
10 00 AM -10.30 AM 



IMew DSCOiVS gttstiaflvgs 

Steven Horn. MD 

. Uns&rsity: of Pennsylvania 

Current Stater- of- the -Art 

Pais.) ChADg, MD 

University of Pittsburgh Medical Center 
11:00 Aftf - 11 30 AM 

QA m the Dk^tal Enterprise 



Charles E, Willie, PhD 



Experidmg the Role of 
tho Techoologjst ire 
Os^itar Radiography QC 

E;U>n Charko-, MKT 
Hospital for Sick Child;?; >< Toronto 
10.00 AM ~ 10.30 AM 






Artifacts arsd tyissedvennares 
m D€$»t&t Radiography 

Chiles Willis. PhD 

,??:va>.\ dokircn': Hospital 
10:30 AM 11:00 AM 

: : 

Develooirig ars Enterprise- wide 
DsoJtaS Qual&ty Asswraoco Program 

Stephen Thompson, MS 
MU Anderson Cancer Center 
11:00 AM -.11:30 AM 

Speech Recogmhon and 
Structured Reporting 



David L. Weiss, MD 
Ceishwer Medical Center 
Sea ion 9 Head 
1:1$ PM ■• 3 00 



Demo of rVoolem~So£vmo. Scenarios 

^ David Wi??ss, MD ■ ; : ' " 

Ce 1st n^-er Medical Cent et 
1.15 P-ft/S - 1;4$ m 

lii: 1 

iPr&stteai AppHcatiores of 
Structured Reportsog w*th Demo 

Curtis Langlorz, MD. PhD 

UnivoHity ofMnnsyhonia . 
1:45 Pft/?-2;15 



Radiology te&teoo and 
the 8adLe& Project 

John Carrino. MD, MPB 

ffngttaca at)d Women V Hospital 

0 k| n; a H\1 a m mog raphy 



Martin J, YafJe, PhD 
$dridybroi}k S/rWomunx College 
Heaku Science Center 
Sec t ion 8 Head 
1:1i> - 3:00>M 



Current and Future Technologies 

Martin YsiYe > Ph D 

Sonnvhrooh S Women's College 
Heoiii; Science Center 
1;1S PM 




DSCOM and PAC5 for 
Dsgital Mammo^ r<? phy 

Andrew Makhueut., PfrD 

Uniyersiiy of Pennsylvania 
1;<15 f*M ~ 2.1S ^ 
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Advanced OmteaS Apolkatsons 
for Digital iviafnmogrephy 
(Te^emammo^raphy, Tomosyr^thesfiS, 
CAD Breast Anci'soorephy) 

D^mti Kopa;is. MD 

Ma$$<iehn&tt* Ccnr/oi Hospital 

2:1$ PM - ? , 

SCAB 0; How To 

(A PraotteaJ User's. G nlrle) 



Nogah liararuati. MD 

Monfefio; e MedicoJ Center 
Section 10 Head 



Ari Update on Wsreless Te<:hooiogj«^ 

Mary MrKenr-a : :RN, MSN 
Bel ice ue Hospital & South Man hot tan 
Hcalihcase rlctworr, 
3:30 J>M ~ 4.00 

^t^r^r^taf i^n Strategies for Large 
Cross Sectioo&Hms-ge Dat^ S<?ts 

AIoidc/Jore.Aledie- : 

Me«3she Benjajnirj, PhD 

AJgiHtx Sysletm. inc. 

Customsxmg Hangmg Protocols 

: Roberta Lorko, MD : : 
Haricar Hosidiai Center 
4:30 - 5:00 PM 

Electronic Storage Mad$a 

^ David S. Channirx, MD 
^•^:- :| X'.yrdyeeesicrn University Medicai School 
Wmm. fro >on U Head 

3:30 PM - PM 

Storage Medsa 
Ka-hcrinc AridnoU-, PhD 

(Jaiecrsiiy oi California. San /raaeeno : ; 

5:3^ P5VS ~ .^.00 ^ 

Storage Opt$or?sx OAS. HSM, SAH, 
HAS erad other Bosxwords 

PraJvash Mat :h?\v> PhD 
6£ Medical Systenu 
4:00 P?v1 - 4:30 PM 

ill 

F^cl;k:ai and.Clmk:al Oetermsr^ams 
of $$or&g'& ^«irM«t« 

David Channin; MD 

i%vt digester fi Caorersiiy Aieciicol School 
■ 4-50 P!Vi ~ 5:00 PM 
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SCAR PACS -AdmlriistF^tion' Course 

Friday, June 6, 2003 - Hynes Convention Center * 9:00 am~S:00 ptfi 



Presented by the PvV! S Ad rmnlst ration 
Subcommittee of the SCAR Education 
Committee 

Faculty: 

George Bowers, MBA 
Principal 

Health Care information Consultants, LLC 

PauJ G. Nagy, PhD 

Dinner, Radiology informatics Laboratory 

Medical College of Wisconsin 

jay Gaeta 

PA CS Consultant 

Thomas M Hanson, MS, RT 
PACS Specialnf 
Freedom Hospital 

Liaisons: 

Bruce L Reiner, MD 

Aswciai? Professor. Department of Radiology 
University of Maryland 

Eliot L, Stegei, MD 

Director imaging. Department of Radiology 
Baltimore VAM CJUnivttnky of Maryland 

Target Audit-aces Recent: and 
soon-to-be PACS Adn-hnseraeors 

Registration: SI 00 USD (meals and 
registration materials included). Space 
is limited. Register now and reserve your 
space by using the SCAR 2003 Meeting 
Registration Form on pages 25-26 of this 
brochure or online on the SCAR Website. 
Six hours of continuing education credits 
available for coarse attendees 

Course Description* 

As the leading educational organization 
that deals with PACS, it is synergistic 
with SCARs mission to define PACS 
Ad ministration and determine the cornpe- 
terici.es required in this evolving Field. 

The first SCAR PACS Administration 
Course will Be a focused one-day session 
prior to the SCAR 2003 Annual Meeting. 
The course will provide an overview of 
the profession covering the four modules 
that encompass the different competencies. 
T he course is designed to provide a 
framework that enables the participant 
to develop. an undersea neiing or -he roles 
and skill sets necessary for effective PACS 
Administration. Tailored specifically lor new 



PACS Administrators, this introductory 
course will identify resources available > 
including a roadmap to the SCAR 
Annual Meeting particularly focused 
on PACS Administration content. 

Since rhere is way too much content 
to reach people; PACS administration 
in a single day, the SCAR PACS 
Adtninisrtation course will present an 
overview of the methods and tools a 
person can use to be a competent and 
happv PACS administrator. T his course 
wile focus on the techniques to embraoe 
change and stay on top of the fast 
moving held of PACS AduurhstrAtion. 

For more information, visit the 
SCAR Website, 

Ussammf? Objectives; 

By the conclusion of the course, 
participants will be able to: 

* Describe the core competencies 
of PACS Administration. 

* Recognize each of the roles involved 
in PACS Administration: Users, 
Business, and Technical. 




identify the Available Resources, 
including SCAR 2003 conference 
sessions of particular interest to 
PACS Ad no o i s t ra to i s ., 



MCAft-affiliaieil User Cr©m 



IDXrad Radiology Information UHSS 
Systems Society (IR1SS) 

Thursday, June 5 - Friday, June 6, 2003 
Sheraton Boston Hotel, 9:00 am~5:00 pm 

AGFA PACS Users Group (APUG) APUCJ 

Friday June 6, 2003 

Hynes Convention Center, 9:00 anv~S:GG pm 

FUJI PACS User Group IVleetirig 

Friday, June 6, 2003 

Hynes Convention Center, 9:00 am~5:Q0 pm 



.<0th ^vr^OONinrn for Cornoc-or 



in R^r>:eionv- 



Day 1— Saturday, June 7 



WVXVW 



6:30 am 
8:00 am ! 



Registry-ion 6 <0 'm-5 30 pit* Continental Breakfast ?;G0 anv~8:00 an\ 

The Impact of 21st Century Technology o^Hu^rnHealthand Sodeiy 
>*?r:~3;30 am * Grand Bail: 



5£ 



930 am 
10:00 am 




j|ltilllli§ liiiii 




S£A8 U Srakn Sfcss&a 

P « ::G:>i i M \ S 
::. > \ ■ \ 0 

: x . ; 1 3 - 1 1 - ^ A :; ^ j. A;".. 

> • : : ' < r . - i >rt'kt: 
: = U>: ;! ■:• CttrV.S! *A!: 



.............................. ..... .•.»> .> .;. . . . . . . . v^v^w^y*^ 



Strategic Bushes:- Plan 
for PACS 



■A 7A/ 'frsi'Mr MfJ 



_ 



1 1 :45 am 



ld§ pm 



Zen and the Art 
of PACS Adrf-inlsfratlon 



Lunch Session 2 : 
Public Domain Software 



11:45 am-1:1 S pm 




c*r* £ i 

I & Workflow | 

•45 \ 



\ 1;15 



& Horeoe 

1:15 ;:>nr- >4$A>m 



— ....... 



2:45 pro [ Break 2:45 pm^:1S prn 



SC&f? U J 00 

||§|oAa:n:ay Co|||| 



P ::-d: Liviti S Vv A ow 



0-::: ; ■ •< 

106 !>■&: ■ - * i A ' . 



E^.J • ' , : : - - 

: RsfX A:':.: A ■•A: 



5:00 prr? 





• 



* Activity of particular interest to practicing radiologists. 



Day 2-— Sunday; June 8 



r Registration 7:00 anv~5:0Q. m- 




: Continental Breakfast 7:00 am -8:00 am 



9:30 am 
1 0:00 am 



Bre^k 9:30 am~1 0:00 am 




Exhibit Hal! W 



SCAB. U 103 
htrc<hjd#rv Gx:?u; 



D-q^-ai Rs • *phy 



Decision Support 
Beyond Radiology 

Davi?J 8aus, MO T MS<- 



1 1 :45 am 



1:15 pm 



assort 3 

How Nor to Give 
II 



IHE i 



Lunch 

Exhibit Hall A 



^^^^^^^^^^^^^^^^^^^^^^^^^^^^:>.^^<^^^^^^^^^^^^:•:•^^^^^:•: 




4$2 D* : >x | 
retook. $ 



3:00 pm 
3:30 pm 



Break 3:00 pm~B:30 pm 



3:30pm^l5 pis I 5'-:r^v^^ J :; id Q< C-yv.im 





6:00 pm \ SCAB Welcome RacfepttoK 6:00 pro~S:O0 pro Priutentsal Center Top of t^e Hub 




>G:h V:>xxv.:^ for Cosr.j^jifc** A;x:hr ^i^x. irvS^Oiocw- 
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Day 3— Monday, June 9 



7:00 am [Registration 7:00 am~5:GG prn 

8:00 am i 



Continental Breakfast 7:00 am--8:00 am 



9 
10 



am 
am 




W:m --11:45 ■ 

207 h:<:a^:^-t:<:r: ?r; i^frv^:^ 



.;.X.•<<<v.;v.:v.^;.•vv.%^N^%^•v.'V.%%•.NN^.S-sS%•.^.>•;>s^.•.<S^:•.•;•.•;<<<<•;•.^:•.-.•.s^ 



SCA8 !i S^m? Ssss&n 
10:03 >5rtt~11:45 sra 

v = . •• ■: rj :■ 4 : % 

llllll 

. . : - :■ ^ 

405 Dav'n^Cj [<•:;;:. 
:>•;• " * ' \ U I ' Qr 



Radiology ft'ontktfs 
Ramnt Khvriistitii, MO 



11:45 am 



$€A& Membership ftteetsrsg 

3rd SCAR Research and Development 
ComnVm.ee Symposium 
11:4$ srtr-iii^ro 



Exhibit Hal I A 



Sr^ee<:||i^^||^ m& 
Slma m d feep« rung 

&r-::c>gr:irjc>r* 

I Break 3:00 pm~3:3G pro 

I SCAB Sarsmr $«S5*&?* 
| * SCAR U Row io 
I (A P?a :•• si U< :' c G>40£i 
> <t- pr?i -5 15 pro 

I 310 .^--rr.^.-or: 

^ 



3:1$ ^m~&£0 



Special S^sioft 3V 

Tbs kfetfcwe Mediae! 
: ; Record (F.MR) ; 

Keith Dn>y*r> DO, !*bD 
Y<Vh p-r. -^;00 p?y? 



rai^f : •:- : v;:^•^:^::^hv 



Exhibit Hal! A 

V : r ; ; ■ . < 
?<V} :<: • 0:,. 0" : \5 

411 . - ■• • fifties! 




Activity of particular interest to practicing radiplogists. 



Day 4 — Tuesday, June 10 



7:00 om I Registration 7:00 3m--9:0G am Continental Breakfast 7:00 arn-3:00 an': I Ro&*ds**i$$ ; :&ft«;o^?abte 1 

j K^ctroriir Caching Tools: j 
j Old Dogs ond New Tricks j 



j 



830 am i ' * 



fvk : chcal <:naoe Interpretation — inV Cession, between rker?ans and Data 

Co-MvtUnrtor*: Richard M&rin. PhD, Kadfi-rhi? Awriof^ PhD 



1 0:00 am | 8reak 10:00 am~1 0:30 am 

| : :Medkal icnano lnn^rpiOt^tk-n — TOe Collision between Hnmans and Data 

: Co • /k^n^snvr*: &V/3W>y£ Afar;*.\ P&D> fCatbsrifw A mi'rk>h\ PhD 

\ 50:3^ anv^S:30 



Activity of particular Interest to practicing radiologists. 



Key: 

IMD General and Special Sessions 
ilS SCAR University Sessions 
c;;; ; Scientific Sessions 
H! Hospital Tours 

Please note: the program sessions are preliminary 
and subject to change or substitutions. 



SCAR Aftimppl l¥l^wfersfelp M^tl«| 

SCAR Members ■ — be sine to 
a i tend the A n mod Mem her. ship 
Mee i i n g/ Lu n ch eon and 
induction of SCAR Fellows on 
Monday, June 9 ar 11:45 AM. 
Hollowing die business meeting, 
the SCAR Research and 
Development Committee wdl 
present their third .symposium. 
The topic of the 2003 R&D 
Symposium is "Evaluation of 
Interstitial Lung Disease on 
5 Mpixvl CRT vs. 3 Mpixei LCD. * 




D: 03 vie Avfi.n of the 
University of Caiiforfjte; 
San Francisco (left) presents 
a pteq^e 10 Samuel Dwyer, 
PhD {right) of the University 
of Virginia, honoring him 
AS a SCAR fellow. 




Dr. Alan Rowberg, Dr gratf Srfckson, ar>d Dr. Katfcy 
Andncie f-eld R&D $yf?iposiu*r. attendee questions. 



Friday, June 8 
Saturday, June 7 



5:00 ~ 8:00 PM 
8:30 AM - 5:30 PIVI 
7:00 Pm ~ PIV! 
i 7:00 ,AM - S^OO FIVI 



lu esclay lu 1 D 7 : 00 AM - 9:00 AM 

All scientific and educational sessions, 
posters and demonstrations for SCAR 2003 
v/iii be held at the Sheraton Boston Hotel. 
"Technical exhibits v/iii be held in Hull A 
at the Hynes Convention Center. Bus 
transportation will be provided from 
the Royiston Street entrance of the. 
Hynes Convention Center to die hospital 
tour sites. 



?.0to •• < A- , 'n«no*a : m for Cn?r>fX:rer Afcohcatior* :fi ?n>eio:oov 
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For a complete up-to-date list of presentations 
and online registration, visit www.scaroet^org 




Learn Virtually Anytime, Anywhere! 

Fulfill your continuing education goals by 
taking courses on line using SCAR'S new learning 
program, SCAR U Online. Learn what you want, 
when you want, wherever you have computer 
access. Preview a course to see how easy online 
learning can be! 



•: guczitex iia&ifrx Pre. tew *c«a/$ j| 













1111111 
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Boston . . Massachusetts * iv.;nr? 7--10. 200.3 ** www.&tarnet oro 



Session 1 

Imaqe Processing 



Session 2 
Departmental Productivity 
& Workflow* 

1:15 PWI - 2:45 PM 



Co-Chairs: 

Kaiherine R Andriole, PhD 
BradJey J, Erickson. MD, PhD 

Utility of Advanced Computed 
Radiography image Processing 
A^gonthrns in the Soft-Copy 
Interpretation of SVIuscu^oskeSetaS 
Trauma 

Bruce L Reiner, MD 

University of Mary.terid 

Eliot Siege! , MD 
Ryan Moffttt 
Steven B rower 

rVHnsrsg of Association Rules in 
Medics? image Data Sets 
Syivanus A; Efoikioya, PhD 

University of Manitoba 
Adepele Qluku-ttle 

A Distributed Execution Environment 
for Analysis of DCE-MR Image Datasets 
Taissha M, Kure, PhD 

Ohio State University 
John D Flelg, MSc 
Joe! H Salt2, MD, PhD 
Michael Knopfx MD, PhD 

Detection of Mscrocaicsficstioo 
?n Digitized Mammograms Usmg 
Wavelet Transform Local Extrenia 

Ms G. Mini, MS 

Cochin University of Science and Technology 

V.P. Devassia 

Tessa rmna 1 horn as, PhD 




Co-Chasrs" 

Bruce I. Reiner, MD 
Charles E VViiiis, PhD 

Vendor Requirements for 
SrnpB&rnentatiori of the (HE 
Presentation of Grouped 
Procedures Integration Profile 
in a Mu ft? -Vend or Environment 

Gary j. Wendt, MD. MBA 

University of Wisconsin. Madison 
Wally Peppier, PhD 

Cresting a Pi ay bo ok for IHE 
Scheduled Workflow Operations 

Arnoo Makers, MD 

Feinherg School of A fed seine 
North western University 
David S. Channht, MD 

Impact of Electronic Signature of 
Radiology Reports on Time8sness 
of final Report Availability 

Lnigi Lepanto, MD 

Centre Hospitaller de 1 'Lhivarsite de Montreal 

Pierre RobiHard, MD 

Jacques Lesage, MD 

How to Successfully Implement 
Voice Recognition: A Case Study 
at Children's Hospital Boston 

Sharon E, Aistltes, MPH 
Children's Hospital Boston 
Chuck Homberger, MBA 
Farhad 5hahro©2 
Robert Bramson, MD 

Changes m Radiology Resident 
On-csil Workflow After 
implementation of PACS 

Khan M. Siddiqui, MD 
dnsinger Medical Center 
Rodney G. Shaffer, MD 
Faalsa Mahmoud, MD 

MuSti-Center Evaluation of 
Technologist Productivity and 
Workflow sn Rimi&ss Operation- 
A Comparison of Computed and 
Dsrect Radiography 

Bruce I. Reiner, MD 
University of Maryland 
Eliot Sicgef, MD 
Fra»k Hooper, PhD 



Session 3 
Image Acquisition 
& Storage 

1:15 9M - 2:45 P8V1 

Co-Chasrs: 

Steve Cc Laager, PhD 

John A. Carririo, MD, MPH. 

Vahdation of a Self-Cafibrating 
Active-fvlatrlx Liquid Crystal 
Dssp^ay System 

Stephen L. Thompson. MS 
MD Anderson Cancer C enter 
Charles £. WiJHs, PhD 
Raimurid Pol roan 
Kenneth L, Homann 

Mobile Screening Mammography: 
What Size Detector is Needed? 

Gary j. Whitman, MD 
MD Anderson Cancer Center 
Donna Moxley, MS 
Dorothy Page", RT (R) 
Jessica Foust 

Impact of Repeat Analysis In PACS 
Maria EHssa Elevado Blado 
Texas Childrens hospital 
Ylnlin Ma 

Rebecca Ann Corwin, RT(R) 
Stephanie G. Carr 

Security Middle-Ware 
infrastructure for DiCOM [mages 
in Health information Systems 

Vijay N.V. KahepaHi 
University of Manitoba 
Sylvan us A, Ehikioya, PhD 
Sergio CamorUnga, MSc 
Jose Rueda, PhD 

Analysing Audst Logs — 

A Multidimensional Approach 

Robert M, Colerftan 
Maine Medical Center 
Matthew D. Ralsicm. MD 
Alexander Szafnm. MS 



*S&S3»«rvs oi pmtk.u'iti:' interest to pr-KtiorK? radiologists 



20th Svffino&iiifTi for Corr : ?^jref Aooiieianor* in Radtoiocv 



Session 4 

Reading Room* 

8:O0 AM ^9:30 AM 

Os-Ch&srs: 

Eliot L, Siegel, MD 
Jihong -Wang, PhD 

Dessgnsng the Reading Room 
m an Academic Environment 

Thomas M. Hamon, MS, RT 
/'7 xHxfftrt i Hospital 
Paul G, Nagy, PhD 
Laura Kresner 
Jeff Rehin 

Effect of ISIurmnance at Eye Level 
on Monitor Black Level Luminance 
and JVfonftor CaSibratlon 

Kish Chakraharti, PhD 

Richard V. Kaeznaarek, MS 
jerry A. Thongs, MS 

Are Consumer Grade Rat Pane? 
Monitors Comparable to SVtedieaf 
Grade CRT Monsters for Primary 
Diagnosis of AbdominopeBvic 
CT Exams? 

David S. Hirschorn, MD 

Massachusetts GenemS Hospital 

Keith I Dreyer, DO, PhD 

Thomas Schuliz 

High Volume TeSeradiaiogy Service: 
Focus on Radio&ogist Satisfaction 

Elizabeth A. KrupinskJ, PhD 
University of Arizona 
Kevin McNeill, PhD 
KaJ Haber, MD 
Theron Ovttj, MB 

A Cost Effective Web-Based 
Teaching File System 

Blair X Henderson, MD 

University of Manitoba 

DeHnsng a Dsg&a? Teaching Fi^e 
Workflow: Specs f s cat ions for 
Software Development 

Barton F. Branstetter* MD 
University of Pittsburgh 
David M v Li ort ettl 
Paul J. Chang, MD 



Sessson 5 

Enterprise Productivity 
& Workflow 

8:00 AM ~ S:30 AM 

Richard L Morin, PhD 
Curds E Larigiotz, MD, PhD 

Leveraging the Intranet for an Srmsgmg 
Department: Centraikirsg information, 
Smprovsng Communications and 
Opera lions, and Providing Access to 
Learning Resources 

W 1 1 1 i a m Tc U s e r 
Children's Hospital Boston 
Linda Poxrsauskfs 
Keith Strauss 
Robs?rt MacDougail 

improving Emergency and Radsoiogy 
fnterdepart mental Communications 
Through Clinical information Systems 
toiegratson and the Application of 
Ivlob^e Computing Technologies 

Wyatt M, Tciiis 
University of California, San Francisco 
Katherine P Attdriofa, PhD 
David E. Avrin, MD, PhD 

Asynchronous Collaboration; 
An Enabling Technique for 
improved Radselogy Workflow 
Bar? on E Brsansletter, MD 

University of Pittsburgh 
David M* Lioneni 
Brian Patersort 
Paul }. Chang, MD 

CHnicsan Assessment of 
Productivity Changes Following 
Enterprise PACS Implementation 
?n a Community Hospital 

Kevin R< Kirsch, RX(R)(GT) 
f-hudre Valley Hospital 
Jonathan Brown : RT 
j, Raymond Gels, MD 
Shelly A... Plowman 

Progress Towards Paperless RadioSogy 
in the PACS Environment 

Matthew D, Ralston, MD 
Maine Medical Center 
Robert C ol cman 

Web-based Outpatient 
Radiology Order Entry 

Daniel I Rosenthal, MD 
Massacfsiiseits General .hospital 
Thomas P Schulu 
David S< Hirschorn, MD 
Keith], Dreyer, DO, PhD 



Session 6 
Imaqe Distribution 

8:00AM - 0:30 AM 



Paul I Chang, MD 

Gary J. Wendt. MD, MBA 

Enhancement of Enterprise Diagnostic 
Rev sew wsth integration into Electron 
&1edsea£ Record 

Kevin W. McEricry, MD 
MD Anderson Cancer Center 
Charles X Suitor, MS 
Stephen K. Thompson, MS 
Stan HHdebrand 

GhaNenges and Limitations of Conical 
Image Distribution "m an Enterprise 
Wsde PACS Environment — A Two- Year 
Evaluation of Multiple Approaches at 
the Unsverssty of Wisconsin 

Gary]. Wendt, MD, MBA 
Uns versa y oi Wisconsin Madison 
Watty Peppier. PhD 

Enterprise-wide Image Distribution: 
She BWH Experience — 
Ten Years and Counts ng 

William Hanlon, MSe 
Brigham and Women 's Hospital 
Ramln KhorasanL MD 
Stephanie Hoogasian 

TooBs for Managing ^rnage Flow 
in the Modal sty to 
CHnscaMrnage-Revsew Cham 

Kenneth W Clark, MS 
Washington University 
David L. Meteors, MS 
Stephen. M. Moore, MS 
G. janses Blaine, DSe 

implementation of Key Image 
r^ote in PACS — Potential Problems 
and SoSutJons 

Gary j. Wendt, MD, MBA 

iativersity of Wisconsin-- Madison 
Waily Peppier, PhD 

Measures of the UisHty of a CEinicsl 
PACS: Comparison of Self-Reported 
Measures and Direct Measures of 
PACS Usage by C&nseians 

Eric P. Tarnm, MD 
MD Anderson Cancer Center 
Kevin McEnery, MD 



'Sessions of particular interest to practices fadiotegist& 
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Co-Cha?rs; 

Samuel J. Dwyer, III, PhD 
Rani in Khdrasani, MD 

implementation of a SAMS Architecture 
Wfthjn A PACS Environment 
Roy Seaholi 

AAffCAS, Inc. 
Dariene Long 
Bruce Hall 

PACS Direct Experiences; 
Implementation, Select son and 
Benefits Realized 
Karen Oil do 

KLAS Enterprises 
Ralph Reyes 

PACS With H\S/W$ Integration 
in Community Hospitals 

David W : Parker 
SmartPACS 

Kenneth C. Cohen, MD 
Ann Hooper, RT 
Steve Waiter, MBA 

Developing a Teaching Rle 
Authoring System Using Content 
Management Technology 

Rex Jakobovits, PhD 
Hvrkhost Data Solutions 
Mark Halsted* MD 
Mark Shanaman, MS 
Edward Weinberger, MD 

PC -Based Ultrasound image Acquisition 
and Data Archiving System Using 
integrated Mscroe^ectronscs 

Steven R, Broads tone, DSc 
lenason Division of Teratrrh Co* potation 
Xingba* He, PhD 
Peter B Chang, PhD 
Alice M. Chiang, PhD 

Implementing PACS; The importance 
of Project Management: Ta§es from 
the Trenches 

Stephen M Doemer, RT 
Kodak Health Imaging 



PACS Experience* 

S:00 AM -8:30 AM 



€o~€ha;rs: 

Paul G, Nagy, PhD 
David S. Channm, MD 

The PACS Pre-fmpSementatiors Process 
at a iVSajor Teaching Hospital: 
A *VMtj-d§seipHnary Approach 

D. Ben et Gaytos 

Chi khan's Hospital Boston 
John SpezsaJe 
Sharon Antiles, MPI I 
Robert Bramson, MD 

Transitioning to a Mew PACS: 
SO Ways to Leave Your Vendor 

Barton E Bransteiter, MD 
University of Pittsburgh 
Claud me L, Martin 
Therese A, Martin 
PauJ j. Chang, MD 

Northwestern Year 4: 
Architectural Changes 

Maria Z, Hernandez, RT(MR) 

Northwestern Memorial Hospital 
Elizabeth McKuighl, RT (R) 
Aimee Duvaii, RT (R) 
Andrew Longoria, RT (R) 

Clinical Comparison of CRT and 
LCD Monitors 'in the Evaluation 
of Mon-dispJaced Fractures 

Bruce L Reiner, MD 
I Jni vetxitv of Maryland 
Eiiot Siegel, MD 
Steven B rower 
Ryan Moffitt 

Can a PACS Workstation Work 
from 6 f 000 Miles Away? 
David S. Hirschorn, MD 

Massachusetts On seta! Harp eta! 
Charles D Levine, MD 
Stephen R Baker. MD 

PACS Modules Training at TCH 

Maria Elissa Elevado Blade 

Texas Children's Hospital 
Stephanie G, Carr 



Infrastructure 
& Administration 

8:00 AM - 9:30 AM 

Co-Ch&srs: 

Stephen K. Thompson, MS 
Keith j. Dreyer, DO. PhD 

Defining the PACS Profession 

Paul G. Nagy, PhD 
Medical College of Wisconsin 
George Bowers 
Bruce Reiner, MD 
Eliot Siegei. MD 

Negotiating a Service Level Agreement 
for PACS watft the Enterprise 

Bryant Mascarenhas.. MB A 
Froedtert Hospital 
Pau5 G. Nagy, PhD 
Daniel Peterson 
jell Renin 

A Measurement Study of Diagnostic 
Imaging Modaiaties and Workgroups 
to Design a Suitable Enterprise 
PACS Network 

Mpho Otukile 

University of Manitoba- St. Boniface Genera! 
Hospital Research Cents? 
Sergio Carnoriinga, MSe 
Jose Ru.eda, PhD 

Paperless and Rimless: 
integrating Dictation with PACS 

Thomas E. Warfel, MD, PhD 

University of Pittsburgh 
Paul jL Chang, MD 

Dsgsta§ Image Conferencing In a 
CHntcaS Research Environment 

Henri dk von Tengg-Kohligk. MD 
Ohio State Urdvetsity 
Klaus BaudendisreJ 
WiUaaro Bennett 
D. Spigos 

A Performance Study of 
RepHcated Metadata for 
implementing a Distributed 
PACS Patient Location System 
Eli en Cheung 

Unix vrstiy of Manitoba- St. Bo: d face General 
Hospital Research Centre 
Sergio Camorlinga 
Ken Barker, PhD 
jose Rueda, PhD 



Note: The pfogrsm sessions are pre ti mi nary &t<! subject to cftsng& or su&sfrtutians 



Poster and Demonstration Session: 
Sunday, June 8, 2003 
1:15 PM -3:00 PM 

Poster awards will be presented at the Sunday evening 
Welcome Reception, 



A Fast Algorithm for the Cortical 
Surface Parameterization using 
Minimum Distance Field 

junki Let\ MS 

Hanyang University 

Jun Soo Kwon, MD 

Jong Man Lee t PhD 

Inyoung Kim, MD, PhD 

A NoveB Automatic Algorithm for 
Selecting a Standard Brain in a Data 
Set Us.mg SimpBe Structure Analyses 
in Talasraeft Coordinate System 

Jong*Min Lee, PhD 
Hanyang Us j iversity 
Bangbon Koo 
Sangmia Lee, PhD 
Inyoung Kim, MD, PhD 

A Perceptual Evaluation of JPEG2000 
image Compression for Digstal 
IVSa myography 

Sankararaman Suryanarayanan. MS 
Emory University Medical School 
Andrew KareJIas. PhD 
Srinivasar* Vedartth&m, PhD 
HetaJ Ved 

Automatic Detection and 
Segmentation of Low Contrast 
Objects en the Complex Background 

Taiyana Bttlikova, PhD 
R oxsian A cacfen ?y of Sciences 
Iryna Ivasenko, PhD 
Roman Palemchka, PhD 

Automatic Stitch ing of 
Digits? X-ray Images 

Alexander L. Berestov, PhD 

Medical Canon Development 

Srinivasan Gopasalaray, PhD 

Tva« j, Bojer 

Timothy L. KobJor 



Boundary Segmentation for Detection 
of Speculated Masses Using 
MorphQiogical Characteristics in 
Dsgltss I IVIa mmogram 

Hosung Kim 
Jaehisn Kim 

Inyoung Klrw, MD, PhD 

CiubFACS; An Qnttne Community for 
the PACS Administrator 

Paul G* Nagy, PhD 
Medic&l College of Wisconsin 
Jeff Rehm 

Charles E Kalin, MD 

Comparison of ft/iammographic 
Imaging Systems m Detection of 
Simulated fVlicrocateifications: 
Hat Panel, CCD, and $creen/FHm 
Combination 

Gary j\ Whitman, MD 
MD Anderson Cancer Center 
Chao-Jera Lai, PhD 
Wei Tse Yang, MD 
Elsa Arrjbas, MD 

Development of ECG Management 
System Conformable to DSCGM 
Waveform using XIV1L 

Yongho Cho, MSE 
Hanyang University 
Myour&gvjti jeon, MS 
Hywngsik Choi, Ml) 
Irtyoung Kim, MD, PhD 

Enterprise Imaging at Snterrnountasn 
Health Care 

Joe B. Boyce, MD 

McKay-Dee Hospital, IHC 
Deanna Welch 
Mary Gathers 
Darin Day 




Evaluation of Automated and 
Seme-Automated Skull-stripping 
Algorithms: Sim j Bars ty Index and 
Segmentation Error 

Jong Mia Lee f PhD 
Hanyang Uni versify 
j i j rtg Hyx iii K a m 
Ui Cheul Yoon, MS 
Inyoung Kim, MD, PhD 

Modeling of Workflow In Daagnost*c 
Radiology Departments 

Sweater B. Gay, MD 
University of Virginia Health System 
Matthew j. Ba&sigrjam. MD 
Alfred C. Weaver, PhD 
C. Douglas PhHKps, MD 

Modern Technology Gives Birth to 
a New ftfiudoar Medical Imaging 
System Conception 

BouraouE Mahmoud, PhD 
Faculty at Sciences of Monastic Tun isia 
Med Heda Bedctui 
Radoslav Raycfocv 
I la bib Essssbbah 
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Peak Ssgnal to ^iosse Ratso 
Performance Comparison of JPEG and 
JPEG 2000 for Various Medlar fmaqe 
Modaiities, and Analysis of Precise 
Rale Distortion Capacities for 
I rn p roved Workt I ow De ve \ o pm ent 

George P. Mulopulos. MD. FACR 
i>wr Radiologists- 
Laszlo K Gasstonys 
Albert: Hernjmdftz, MS 

PSanning for the Development 
of Telesonography 

Matthew J. Bassignani, MD 
University of Virginia Heaith System 
Samuel j. Dwyer, PhD 
Alfred C. Weaver. PhD 
Jonathon Ciambotta, MD 

Radiology Scheduling: Preferences of 
Users of Radiological Services and 
Sropact on Referral Base Retention 
and Extension 

Biswlta C. Mo&imdar, MD, MFH 
National Institutes of Health 
Douglas N. Hornsby, MD 
Lisa Intriere, MD 
Pablo Ros ; MD, MPH 

Softcopy Oispiay Quality Comparison: 
A Proposed Quality^ ndex Curve 
Jihong Wang, PhD 

University of Texas Southwest^ n -Medical Center 

Qi Peng, MS 

Teleratf oology Use During Operation 
Joint Forge in Bosnia 
Lance R. Williams, MD 

Womack Army Medical Center 

Transforming a Fslm-Based CT Practice 
to PACS; A CT PACS Tria^ Experience at 
Maya Clinic Rochester 

Suzanne K, Ramthun. MBA, RT(R) 
Mayo Clinic, Rochcstef 
Colleen M. Braun, RT(R) 
Brian j> Bartholmai, MD 



Transition from Film to Electronic 
Media in the first- Year Medical School 
Gross Anatomy Lab 

Randy D. Ernst, MD 

University of 'Ihxas Medical Branch at Galveston 

Paul S. Sarai, MD 

Qrhan S. Ozkan, MD 

Alberto Hernandez, MD 

Use of WsreSess PDA in Day-to-Day 
Radiology Practice 

Khan M- Siddiqui, MD 
Gehinger Medical Center 
Joseph A. Scopelliti 
Fredrick K, Exhge, MD 



Using Off the Shelf Digital 
Cameras to Scan Film into a 
Lightbox Free Environment 

Yarori Rado, MD 
UniwrsilffltsMiinlk Ikwsselrforf 
Bcn|ami»- Fritz, MR DOS 
Jens Nawatny. MD 
Alexandra Rado^ MD 

Visual Ization of Three- Dimension a I 
Fusion image Using VRIV1L in 
Clinical Epilepsy Case 
Sang- Ho Lee 

Research Institute for Radiological Sciences, 
Yonsei University 
Dong-Hyun Kim 
Sun Kook Yoo» PhD 
Haljo-Jung, PhD 




For a complete up-to-date list of presentations, visit www^scarriet^org 



Note: Thfr poster and demo session is preiimtnary sad subject to change or substitutions 



20th Svrrioosium for Comnuter Anolltatjons. Irt : ftadioiaqv 
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Ane-adees of. SCAR 2003 will have the opporuumy to : 
rq>isser for cot us ofEeuY Israd Deaconess Mcdu:ai Ccnrcr 
(BID}< Brigbam and Hospital (1>WH}> €b!ki renV 

Mo^piiai Buaaon (CHB;, Mass'advjsccy* : Geneoj 1 Hospital 
i'MGW) and New England Baptist Hospital (NLB). 

Each msiilutio:! iui chfterem vendors arai ccnblgnnniota; 
giving p:udeij->an-..s an over view of several s/.srem solution 1 ;, 
lours will be offered ay roHow-a 



Saturday, June 7, 2003 

liiii! iiiiiiii iiiiiiiiiiii 

3:15 PM~ 5:15 PM 




1:15 P'M - 3:15 PrVf 
3:15 PM - 5:15 PM 



Monday, Ju^e 9, 2003 
i :io pm - :> 

3:15 PM - :>:1S Pol 



B=;s nan^porouioa will he provided Ironi Hyne.s C a) nvcia ion 
Center (Boy! -a on Streca. entrance) to each: or the otedicai 
center, A. tour of anyone f-cnuv woILea: approximately one 
hone Tours rcqtn re advance recy^uador: and vour tone rimes 
w III he sent to you with your regi-a rati or- conhrxnation. 
Please urake yoou lour selection:; on the SCAR 2003 Meeting 
Regaarabora Horn- (page 26). Theoois t-o additional rec, bin 
space h limited and too;^ will he assigned on a brsocoim? 
Ersa oerve barba You may pte-regnaer for a m<nu;vnn0 of 
t wo tours 

IF taking two -ours, i; is reconooended that tours not be 
scheduled back- to-back , since paoacipams ;nuM ride the bos 
back to the Hyne.s Conveodon Center before boarding 
another bus too the next unu. hioweven h a participant plans 
><a visit both Bogharn and Women's and CJn.ldretC Hospital, 
it =s recommended 
rbarahcy register for 
baek-t<>-back torn v. 
Due to the close 
prO'x;rnky of B\X ; H 
arrd CHB r tour 
guides v/ill walk 
participants horn 
one una hatooo it: 
the otheiv 




BETH ISRAEL DEACONESS MEDICAL CENTER 

Beth Israel Deaconess Medical Center is a major teaching 
affiliate of Harvard Medical School {since 1928), The center 
is a non-profit healthcare institute with 529 beds, 1200 
physicians on the active medkai staff and is renown for 
excellence \n patient care, biomedical research, teaching 
and community service. Located in the heart of Boston's 
medical community it serves more than half a million 
patients annually in Boston and in communities North, 
West and South ol the city. 

The Division of Radiology at Beth Israel Deaconess Medical 
Center offers complete diagnostic services including general 
radiology,. CT scans, MR:, ultrasound, mammography, 
nuclear medicine and interventional radiology. Bach year 
over 250,000 examinations are performed and interpreted 
by sub -specialized radiologists. 

The Division of Radiology has a PACS system that services 
three campuses and multiple outpatient centers. The PACS 
system has over 60 diagnostic workstations, 20 clinical 
workstations and Web-based image distribution. The 
Division of Radiology is electronically archiving 178,000 
exams per year. 

This tour will focus on digital workflow In an outpatient 
setting, providing participants with an opportunity to 
interact in a fully functional digital environment. 

The tawr ircdud&s: 
OutpatB*mt Workflow 

* See CR and Dft functioning in a busy outpatient 
department from patient arrival to final interpretatson 
including remote reading with integrated RIS and 

s oft co py inter p ret a ti o n . 

Digital! SVSammography Workflow 

* See how digital mammography improves workflow for 
the technologist and radiologist by streamlining the 
radioiogicai process from the first patient contact 
through delivery of results, 

Advanced Fost ^rocesssreg Methods 

* See how a variety of advanced imaging techniques can 
be used to help with surgical planning, tumor staging 
and other facets of healthcare and research; also, the 
many ways in which image presentation can be made 
with multimedia. 

The digital Fsleroom 

* See how the fileroorn duties have transformed from a 
film-based environment to digital 

BIDMC V^dors: 
» G£ Medical Systems 

* Fuji Film Medical Systems 

* Fischer Imaging Corporation 

» PacsCube (DatCard Systems, inc} 

* Vital images, inc. 
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Tour 2 



BRiCSHAfyS AMD WOMEN'S HOSPITAL 

Since 1980, Brigham and Women's Hospital (BWH) has been 
recognised Internationally for its excellence in patient care, 
medical research and the training of outstanding young 
physicians and other health care professionals. A teaching 
affiliate of Harvard Medical School and a founding member 
of Partners Healthcare System, inc. {1994), the hospital 
comprises 716 beds, extensive outpatient facilities and 
state-of-the-art research laboratories. 

The Department of Radiology offers a full spectrum of 
imaging services provided by sub-specialized radiologists. 
Each year over 500,000 examinations are performed. The 
MukidiscipHnary PACS system at BWH services three hospitals 
(BWH, Dana-Farber Cancer Institute and Faulkner Hospital) 
with over 110 smage acquisition devices and over 125 
diagnostic and clinical review workstations, and Web-based 
image distribution. In addition to radiological images, 
OS-Gyn studies, cardiac catheterizations, echocardiography 
and vascular ultrasound studies are also archived to PACS. 
further integration into the enterprise Is being carried out via 
a physician order entry system and the electronic round trip, 

Brigham and Women's Hospital would like to demonstrate 
the paper less/film Eess workflow that is being Implemented 
system-wide. 

The tour inciiad&s; 
Phys icia rs *s O r& er 

* Web Based Physician Order Entry used to deliver real-time 
decision support to referring physicians while enabling 
them to create clean and concise orders. Three exams 
will be scheduled directly on-line with radiology, 

imaging Servkes 

* Scheduled appointments show directly on the modality 
via DICOM Modality VVorklist, 

* Image acquisition, header validation and image transfer 
into the PACS, 

* Primary interpretation by the radiologists using various 
report generation techniques including back-office voice 
recognition. 

Web DsstHbytiora 

* Web distribution of the report and images electronically to 
the original referring physician, and to any clinician in the 
system that has the appropriate access and the need-to- 
know this diagnostic information, images from radiology 
as well as from the cardiac cath lab and other imaging 
areas will demonstrate the multidisdpiinary aspects of the 
Brigham PACS program and round out the presentation. 

BWH Vendors: 

» Agfa Healthcare Corporation 

* GE Medical Systems 

* Siemens Medical Solutions 

* eScription 

* Others 




lour j 



CBitDstesrs hospital of boston 

Children's Hospital Boston is a 32 5- bed comprehensive center 
for pediatric health care. As the largest; pediatric medical 
center in the United States, Children's offers a complete 
range of health care services for children from 15 weeks 
gestation through 21 years of age (and older In special cases). 
Children's records approximately 18,000 inpatient admissions 
each year, and our more than 150 outpatient programs and 
emergency services care for more than 300,000 patients 
annually. The hospital also performs 150,000 radiological 
examinations every yea?; 

The t&ur includes: 

Nudea? BViedkme Srsformation System 

« See a demonstration of Children's Hospital's "homegrown" 
NMIS. A brief history and technical overview of the system 
wiH be provided followed by a demonstration of the various 
modules within the NfvllS. 

RadsoSogy Web Strategy 

* Review the Children's Hospital internal radiology website 
that will highlight the following functional areas en the 
department: Administrative, Billing, Clinical, Engineering/IT 
Problem Reporting, PACS Project Tracking System, Radiology 
IT Information, Research, Staff, Teaching Files/Links, and 
Training & Conferences. 

Tech m cat Tour 

* See our newly constructed computer room highlighting our 
uniquely designed PACS architecture. Radiology IT and PACS 
vendor personnel will be available to answer questions 
about how and why we decided on this particular design, 

* View our state-of-the-art MR! reading room and view a 
demonstration of our PACS soft copy reading stations and 
our VR dictation stations. An opportunity to experience 
'hands-on' PACS stations wiil be provided. 

Ch 1 1 & rms '% Vendors: 

* Fujifilm Medical Systems 

* SMC Corporation 



;:0th !Wrr.pc^!vm *or Corr>n;i:fr ApftikyVtoos. in ftadioipav 
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NEW ESSIGtAiftfD BAPTIST HOSPITAL 

Established in 1893, Mew England Baptist Hospital is a 
140-bed adult medical/surgical hospital, located in the 
Mission Hill neighborhood of Boston, with specialty services 
in musculoskeletal care, sports medicine, occupational 
medicine and cardiology. Since its inception, New England 
Baptist Hospital has continually taken patient care to new 
levels and today is recognized for its exceptional blend of 
caring and commitment. 

The New England Baptist Hospital Department of Radiology 
is a comprehensive diagnostic entity, encompassing general 
radiology, CX MRI, ultrasound, mammography, nuclear 
medicine and PET; 

New England Baptist Hospital Radiology Department was the 
first electronically integrated facility in Boston, NEBH 
Radiology takes in electronic images from S satellite locations 
and currently is archiving 85,000 exams per year. The reading 



•oom <ons5Scs or 
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dedicated for clinical review, image distribution throughout 
the campus and clinicians offices is handled via a dedicated 
web server. At present more than 200 users access patient 
image data and radiologist interpretation via Web 1000. 

The tour Includes: 

* A hands-on look at workflow in the surgical suites, using 
42" plasma screen technology in the OR setting. With 
emphasis toward joint revision, we will display the newest 
advances in electronic templating. 

* Showcase of workflow in clinic settings in dedicated 
Hand Surgical and Outpatient area. 

* Available images printed on paper media using 
DICOM print. 

« Demonstration of primary interpretation of PACS stations, 
using PACS/RIS/MIS interface. 

MEB Vendors: 

* Agfa Healthcare Corporation 
« RTAS Systems 

* Meditech 




MASSACHUSETTS GENERAL HOSPITAL 

Founded in 1811, the Massachusetts General Hospital (MGH) 
is the third oldest general hospital in the United States and 
the oldest and largest in New England, The 868-bed world- 
renowned medical center offers sophisticated diagnostic and 
therapeutic care in virtually every specialty and subspecialty 
of medicine and surgery. Each year the MGH admits approxi- 
mately 42,000 inpatients and handles more than 1.2 million 
visits in its extensive outpatient programs at the main campus 
and at its four health centers. Its emergency services handle 
nearly 75,000 visits annually. 

The MGH conducts the largest hospital-based research program 
in the United States, with an annua? research budget of more 
than $300 million. It is the oldest and largest teaching hospital 
of Harvard Medical School, and nearly all of the hospital's active 
staff physicians are on the Harvard Medical School faculty. 

There are approximately 30 million radiology images stored 
in the PACS system at MGH making it the largest PACS System 
in the world. The radiology department performs an average 
of 1400 exams per day and about 450,000 radiological exams 
each year. Then? are 7 interpretation Locations: Pediatrics, 
Neuroradiology, Bone, Chest, Gastrogenitofy, Emergency 
Radiology and Vascular With a start of over 70 board-certified 
radiologists, and an exceptionally high volume of studies, 
the department has gained distinction for Its subspecialty 
expertise in cardiac, emergency, GI/6U, interventional, 
musculoskeletal, neurology, interventional neurology, 
pediatric, thoracic, and vascular radiology, as well as breast 
Imaging and nuclear medicine. 

The tour includes: 

Digital imaging Department 

* See where it all happens: System Monitoring, QA, 
Troubleshooting. 

Emergency Department 

* See CR, DR, CT functioning in a Level 1 Trauma Emergency 
Department, 

Orthopaedic Outpatient Department 

* See CR, DR functioning In a busy orthopaedic radiology 
department, 

Srsterpr&tatsor* Areas 

* Observe primary interpretation using PACS system in con- 
junction with voice recognition. 

The Image Service Center 

* See the state-of-the-art 3 mage Service Center. 
rviGH Vendors: 

* Agfa Healthcare Corporation 

* Arnicas, Inc. 

* GE Medical Systems 

* Hologic, Inc. 

* Siemens Medical Solutions 
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Composes that have c&nf srmed 
their participators at SCAR 2003 
as of ptiblscatjom tame. 

ADVANCE Newsmagazines 
Agfa Healthcare Corporation 
AM! CAS, Inc 
Aware, ine 
BarcoView, LLC 
BRIT Systems, inc. 

Cambridge Computer Services, Inc. 

Canon Med seal Systems 

CCA (Creative Computer Applications, Inc) 

Cerner Corporation 

Codonics, inc. 

Data Distributing, LLC 

Data-Ray Corporation 

DatCard Systems, inc. 

Decisions in imaging Economics 

DeJarnette Research Systems, inc. 

Diagnostic imaging 

Dictaphone 

cast man Kodak Company 

eDictation 

Emageon inc. 

eMed Technologies Corporation 

eR AD/? mage Medical 

Fujlfilrn Medical Systems USA, inc, 

G£ Medical Systems 

Hologie inc. 

iDX Systems Corporation 
Image Systems Corporation 
Images-on-Call 
Sntelerad Medical Systems 
Konica Medical imaging 
McKesson information Systems 
Medical Manager Health Systems 
MEEN imaging Technology News 



Merge eFiim 

Misys Healthcare Systems 
NAi Technology Products 
Or ex Computed Radiography 
peerVue 

Philips Medical Systems 
Planar Systems, Inc. 
PointDx, Inc. 
Pro Vox Technologies 
Quest international, Inc. 
H2 Technology, Inc, 
RAD infosy stems 
Redrick Technologies, Inc 
Richardson Electronics 
HiS logic. Inc. 
Rorke Data, Inc. 
Scimage 

Siemens Display Technologies 

Siemens Medical Solutions, USA, Inc. 

SmartPACS 

Softmed Systems, Inc. 

Soma Corporation 

Source Medical Solutions 

Springer -VeHag Mew York, Inc, 

Stentor 

StructureRad LLC 
Tech Source 

Titan Systems Corporation 

Tourism Vancouver 

U.S. Electronics, inc/Totoku 

U.S. Radiology On-Cail 

Ultra Visual Medical Systems 

VIDAR Systems Corporation 

Vital Images, Inc., 

VitaiWorks 

Voxar, inc. 

Witt Biomedical 

XI mis, Inc. 



SCAR wishes to thank the i 

following corporations for their \ 

generous support of the j 

SCAR 2003 annual meeting. j 




GE Medical Systems 




GE Medical Systems 

Informs tion Technologies 




Eastman Kodak Company 





Acuson Corporation 

Agfa Healthcare Corporation 

Arnicas, inc. 

BarcoView, LLC 

Canon Medical Systems 

CCA (Creative Computer Applications, Inc) 

Cerner Corporation 

DatCard Systems, inc. 

DeJarnette Research Systems, Inc. 

Eastman Kodak Company 

Emageon, Inc. 

eMed Technologies Corporation 

First Consulting Group 

Fujifilm Medical Systems USA, inc. 

GE Medical Systems 

Hologie Inc. 

IDX Systems Corporation 

iMV Medical Information Division, Inc. 



Johnson & Baughan, P. A. 
Konica Medical Imaging, Inc. 
McKesson Information Systems 
Medical Technology Services (MIS) 
Merge ©Film 

Misys Healthcare Systems 
Packeteer 

Philips Medical Systems, HA 

R2 Technology, inc. 

SG&A Consulting, Inc. 

Siemens Medical Solutions, USA, Inc. 

SmartPACS 

Stentor 

Tech Source, Inc 

Toshiba America Medical Systems 
Ultra Visual Medical Systems 
Vidar Systems Corporation 



Emageon, Inc. 
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Fujifilm Medical Systems USA, in 

H FIW1FILM 



!DX Systems Corporation 
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'Two full days of exhibits held in Hall A at the Hynes Convention Center feature 
industry leaders demons* rati rig the lares £ products and services m medical imag- 
ing, inforniancs» and information technology, More PACS vendors assemble at 
SCAR than any other conference except the R5NA. 

Internet terminals and wireless kiosks will he located in the exhibit hall. Lunch 
and breaks will also be served in the exhibit hall on Sunday and Monday. 



Exhibit Hall Hours 



liilli 



Saturday Opening Reception in Exhablt Hal 
Sunday Exhibit Hall Open 
Monday Exhibit Hall Open 



5:00 pm to 7:00 pm 
9:30 am to 5:00 pm 
9:30 am to 5:00 pm 




CE IMmiical Systems 



SCAR T#p *f 



CE Medical Systems is the official 
sponsor of the Opening Reception 
scheduled for Saturday, June 7 
from 5: GO pro ro 7:00 pm in 
Exhibit Hall A of the Hynes 
Con vendors Center, she site for 
SCAR 2003 'Technical exhibits. 
2000 v attendees will enjoy cock- 
tails and hers d'oeuvres. and gather 
to network in the sold out exhibit 
hall. A noc-to-he-rnissed event' 




GE Medical Systems 

information Technologies 



Siemens is die generous sponsor of this 
years Welcome Reception toe all meet- 
ing attendees scheduled for Sunday, 
June 8, T he reception will be held from 
6:00 pm co B;00 pm at die top of the 
Prudential lower adjacent to the Hynes 
Convention Center and Sheraton 
Boston Ho re! in the: Top of the Hub 
restaurant. Seating fifty-rwo stories 
above Boston s you can't help but be 
inspired by the finest of sunsets and the 
breathtaking views of the en ore city. 

A highlight of the reception is the 
presentation of poster awards and cash 
prizes and a special welcome to new 
individual, institutional, and corporate 
members of SCAR. 



Payments must be made in U.S. dollars 
by personal check, travelers check, 
VISA, MasterCard, AM EX or Discover. 

Payment in full is required to process 
your registration. 

Ah cancellations and requests for 
refunds must be in writing and 
received no. later than May 16/2003 
Refunds are subject to an $80 
administrative fee. No refunds 
will be issued after May 16, 2003 



SCAR IVf^H^ls^rj 
ftew S€Af% &£emh&r: includes 
badge, final program, Conference 
Proceedings, SCAR U syllabus, all 
sessions, entrance into the exhibit 
half Non-members may elect to acid 
their first year of membership for a 
discounted fee by registering in the 
New SCAR Member category. 

Dally: includes badge, final program, 
Conference Proceedings, SCAR U 
-syllabus, all sessions, entrance into 
the exhibit hall. SCAR membership 
may be purchased separately. 

Residents/ Medlcai Slud&ftts Only; 

Same materials as Non-member. 
Documentation of student status is 
required. SCAR membership may be 
purchased separately for $100. 

Spouse/Companion: Registration 
is complimentary, if the individual is 
not a member, potential member, or 
speaker. The Conference Proceedings 
and SCAR U syllabus are not included. 

PACS Administration Course 
and SCAR affiliated User <Group 
Meetings have additional 
registration fees. 

Official Attire at SCAR 2003 — 
Business Casual 
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Occupation 

(please select OWt category-best match) 
O Physician 

G Healthcare Administrator 
(include? CiOs, CEOs. CFOs) 
: Computer Scientist 
D Engineer 

I"; Health Information Technology 

Professional 
U Scientisi/aesearche* 
■■ ■ Medical Physicist 
G PACS Administrator 
D Technologist 
G Vendor 
• j Consultant 

Other 

Primary Occupational Settmg 

(ptessts select ONE category best ma-ch) 



(please : 
p University Hospital 

□ Government or VA Hospital 

□ Community Hospital 

□ Private Practice (office, clinic or 
imaging center) 

'.'.} Corporate 

' Government (non- hospital) 
• Resident/Medical Student 

□ Other ™™ 

Z) Radiology 
Cardiology 
Nuclear Medicine 
information Systems 
Other 



(please check ALL that apply} 

Member 
: j APUG Member 

□ SCAR 2003 Scientific Presenter 

□ SCAR 2003 SCAR U Faculty 

□ SCAR 2003 Invited Speaker 
(Opening, Closing, Lunch, and 
Special Sessions) 

How did you learn of the 
SCAR 2003 meeting? 

['.'.} Colleagues 
H Direct Mail 
D SCAR News 

n Journal of Digital Imaging 

H SCAR Website 

'd Internet Link (please specify) 



□ Diagnostic smagjng 

□ Other Publication (piease specify) 



Do you piars to attend 
the SCAR He&sption 
at the "Top of the Hub/' 
Prudential BuHdsn^ or? 
Sursd&y, June Sth? 

■ Yes G No 
Spouse/Companion will attend; 
O Yes ... No 



SCAR 2003 Annual Meeting • June 7-1 0 ff 2003 * Boston, Massachusetts 
Pr^-registratson D«*5dime; May 30, 2003 
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l'..; My Spouse/Companion wiM attend (name for badge) 



Credit 

check the tyoe of credit you wish to receive: 

□ Physicians - Category I Credits for CME are offered to physicians, 

□ Technologists »■ Category A Credits for CMS offered to radiologic technologists. 

□ Physicists » MEPS credits for CME are offered to medical physicists 



Csnceitef tort/Refund Policy 

Ail cancellations and requests for refunds must be in writing and received no later than May 16, 2003. 
Refunds are subject to an $80 administrative fee. No refunds will be issued after May 16, 2003. 
return boih sides of registration form. 

Payment; 

["! Check enclosed in U S. Dollars to: SCAR 2003 
□ Credit Card- □ VISA □ MasterCard 



U AM EX G Discover 



Registration Fees 



SCAR Member Rate 
Non-Member Rate 
New SCAR Applicant* Rate 
Resident/Medical Student Rate 

Da sly (per day — check day(s) below) 
Saturday, June 7 
Sunday, June 8 
Monday, June 3 
Tuesday, June 10 

* Meeting Registr ation and 1st year SCAR Membership 
(see inside back cover for SCAR Membership Benefits) 



Early Bird 
Until 5/2/03 

$445 
$545 

$300 

$200 
$200 
$200 
5200 



After 5/2/03 
and On Site 



$495 
$595 
$620 
5350 

$250 

$250 
$2 ! 50 



AMOUNT 



SCAR ^re-^eeimg Course, Friday, June 6 

PACS Administration 1-Day Course 



SCAR individual Membership 

G Domestic (USA) 

Internationa: (including Canada) 
[".] Medical Student/Resident (USA only) 
G Emeritus 

TOTAL AMOUm ENCLOSED 

One registration per form; copy as necessary 



$100 

12 months) 

U2S 
$200 
$100 
$100 



5100 



$125 
$200 
$100 
$100 



continues on back 25 



The following tours require advance registration. 
There is no additional fee, but space is limited, 
You may pre-register for two tours. See page 20 for 
description of tours at Beth Israel Deaconess Medical 
Center (BID), Brigham and Women's Hospital (BWH), 
Children's Hospital of Boston (CH8) y Massachusetts 
Genera! Hospital (MGH) y and New England Baptist 
Hospital (NEB). 




Saturday, Jurs© 7 
1:15 PM 
3:15 PM 

Sunday, 3un& B 
1:15 PM 
3:15 PM 



Monday, June 9 

1:15 PM 
3:15 PM 



Beth fsrae 
Deaconess 

Tour 1 A - BID 
Tour IB - BID 

Tour 1C - BID 
Tour I D - BID 




lassachusef.ts 
Genera! 



;1our 5E - MGH 
Tour 5F - MGH 



Brigham and 
Worn en's 

Tour 2 A ~ BWH 
Tour 28 - BWH 

Tour 2C - BWH 
Tour 20 ~ BWH 




Children's 
of Boston 



Tour 3 A 
Tour BB 



CHB 
CHB 



Tour 3C > CHB 
Tour 3D CHB 











New En 






Baptist 






\our 4 A 


~ NBB 






Tour 4B 


- NEB 






Tour 4C 


- NEB 






Tour AD 


- NEB 






How marsy hospital tours 
would you iske to attend? 

Please Circle: 1 2 None 

Select your Hospital Tour 
by number and letter code* 

(Example: "1 A" for Beth Israel Deaconess 
at 1:15 pro on Saturday, June 7} 

1st Choice 

2nd Choice 

3rd Choke 

4th Choke 

5th Choice 

* Your tour tiroes will be on your registration 
confirmation. Tour tickets and instructions 
will be in your registration packet, 
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Asi^ricsms With ©Isafollltles Act 

Individuals needing auxiliary aids or services as 
identified in the Americans with Disabilities Act, 
please call the Society for Computer Applications 
in Radiology at {703} 757-0054. 

Tteee Easy Ways to Register 
internet; www.scarnet.org (Credit Card Only) 
Fax: 703-757-0454 (Credit Card Only) 

Mail: SCAR 2003 Meeting Registration 

10105 Cottesmore Court 
Great Fails, VA 22066-3540 

Allow up; to 3 weeks for receipt of your registration 
confirmation letter. 

Keep a copy of this, form for your records, 
Please return both skfes of registration form* 



SCAR §s very excited to hold the^r 2003 Annual Meeting in 
downtown Boston, Massachusetts, This location enables 
everyone to learn from the "Boston experience/' with special 
sessions taught by radiology informatics faculty of Boston 
medical schools and tours of electronic imaging activities at 
leading Boston healthcare facilities. 

For more information on Boston, visit the Greater Boston 
Convention and Visitors Bureau at www. boston usa.com 

HOUSING DEADLINE: APRIL 28, 2003 




SHERATON BOSTON HOTEL 

Group rates are available as. rhe Society 
tor Computer Applications in Radiology 
headquarter hotel - the Sheraton Boston 
Ho re!.. The hotel is connected ro rhe 
Hynes Convention Center. Ail scientific 
and educational sessions will be: held in 
the Sheraton Boston Hotel Technical 
exhibits will be located in the Hynes 
Convention Center. 

The 1 >2 1 5- room Sheraton Boston, 
New England's largest hotel, has recently 
completed a full-scale renovation project 5 
positioning it as one of the regions 
premiere business and convention venues. 
Nestled in charming and historic Back 
Bay, the Sheraton Boston Hotel is 4 miles 
from Bostons Logan International 
Airport, The Sheraton is close to the 
Financial District and businesses in 
Co p ley Sq u a re a n d Dow n tow n C ross ing, 
and one block from famed Newbury 
Street, the scenic Charles River and many 
favorite shops, restaurants and museums. 

The hotel is connected via an indoor 
walkway to the Hynes Convention 
Center and to iwo hundred shops at the 
Prruientiai Center and Copley Place Mali, 
Saks Fifth Avenue* Ann lay km Gucci, 
Nenman Marcus, and W iS flam s- Son om a 
are just some of the fine retail establish- 
ments within this expansive complex. 




ROOM R E S E R VAT IONS 
Room reservations can he made at 
the Sheraton Boston by calling 
S00~325-BS3S or by faxing the 
attached housing form no later than 
Monday, April 28, 2003. After this date, 
reservations will be accepted on a space 
available basis at the SCAR meeting rate. 
Reservations should be made directly 



Some important information when 
booking your reservation; 

* Please make reservations early Cut off 
date for room reservations is Monday, 
April 28, 

* Be sure to tell the Sheraton you are 
with SCAR or Society for Computer 
Applications in Radiology to receive 
the discounted room rate, Discount 
rate also applies tor attendees 
participating in the JRLSS, Fuji, 
and APUC user group meetings, 
and the PACS administration course. 

* Ask the Sheraton to send you a written 
confirmation. 

* The hotel wis! refund deposit if 
cancellation of reservation is received 
72 hours prior eo arrival date, 

A§i?tM£ RESERVATIONS 

Discounted fares are available through 
United Airlines and American Airlines. 
For United, call 800-52! -4041 and 
refer to Meeting ID Code 5 11 RR 
For American, call 800-433-1790 
and refer to Starfde #3863AG. 



GROUND TRANSPORTATION 

The Sheraton Boston Hotel is 4 miles 
from Logan International Airport. 
Back Bay Coach is available from 
Logan Airport to the Sheraton Boston at 
a cost of $9,00 one way Once you have 
claimed your luggage, call 888-222-5229 
for pickup arrangements-. Shuttle departs 
outside the baggage claim area approxi- 
mately every 20 minutes between 
7:00 arn and 7:00 pm. Taxi service is 
also available at an approximate cost of 
$30.00 one way for up ;o four people. 
Other transportation options include 
subway and commuter rail (M8TA), 
and Amtrak. See the SCAR Website 
for driving directions and maps. 

PARKING 

Valet overnight parking at the hotel is 
approximately 333-00 per day. There are 
additional parking garages nearby where 
you can self-park. Prudential Garage is 
$32,00, and for the Pilgrim Parking 
Carage, the daily rare is $24,00. 

CA§? RENTAL 

SCAR has arranged discounted rates 
for car rentals through Hertz. For 
reservations, call 800^654-2240 
and refer to CV #02010008. Or 
you may contact your travel agent.. 
Attendees may also place their 
reservations online as wwwdiertxxom. 



20th SvUinoWifa for Comoutfiir Annotations in Radioioqv 



SCAR 2003 Annual Meeting • June 7-10, 2003 • Boston, Massachusetts 

SHERATON BOSTON HOTEL 
Attn: Reservations Department 
39 Daiton Street » Boston, MA 02199 
800-325-3535 * FAX: 617-236-6095 

RETURN BY APRIL 28 to the Sheraton Boston Hotel 

PIEAS6 PRINT OR TYPE 
ACCOMMODATION REQUESTS: 

SCAR Room Rates Guaranteed June 4th to June 11th, 



AmvsS D&te 



Time 



Departure Date „. 



Time 



CHEC3C-SN Tm& tS AFTER 3:00 pm 

CH&C&-OU? TIME IS BEFORE 12 '015 N&$m 



□ Single Room/One Bed $239,00 per night □ Club Floor/One Bed,. ,.,...$279.00 per night 

□ Double Room/Two Beds .....$239.00 per night □ Club Floor/Two Beds >™$279, 00 per night 

G Request Smoking Request Non Smoking ■:::! Special Needs/Requests; 
Pfease reserve accommodations for: 



Of outside USA please aiso include country end city codes,) 



Method of Payment: 

Advance deposit is required to confirm mom reservations. Ail rates are in USD and subject to a 12,45% 

room tax, 

n Check enclosed 

n Credit Card 

□ American Express □ MasterCard Visa ' Discover : Diners 



c s s B :'f ' " c 15" n\T^ sk K " * " ' *x pi ration oats {mm/yy) 

A one night's deposit or credit card number is required in order to guarantee a room reservation, A deposit wiii be refunded it cancellation of reservation is 
received 72 hours prior to arrival dale. To assure your accommodation, your reservation must be received prior to Monday,. Apr!? 28. 2003 and before the UCAR 
reservation Mock is filled. After this time., reservations will be accepted on a space available b^sis at the SCAR meeting rate. 



Signature: — ,,, 



te: 



Fax or mm\ to the above address. Keep a copy for your records § 
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i W I tl 111 I » 11 1 W 
Special SCAR 2CICI3 Membership Offer 

Enjoy the SCAR 2003 conference now and benefit from 
SCAR membership all year long. SCAR provides an open 
environment for imaging information professionals to 
access expert and cutting edge resources in a collegia! and 
practical atmosphere. 

SCAR members are a diverse group of physicians, physi- 
cists, technologist radiology adounistraiors, I^ACS admin- 
istrators, GIOsVCFOs, CEOs, IT' professionals, engineers, ; 
and computer scientists practicing in the academic, go vert: ■• 
3Xierm and private practice sectors. Each constituency con- 
tributes its own unique viewpoints, needs, and expertise, 
creating a stimulating environment for original research, 
collaboration; and education. 

SCAR membership benefits include: 

* Subscription to the peer-reviewed journal of Digital 
Imaging, published quarterly. Now available online to 
SCAR members. 

* The quarterly society update, SCAR Akws. 

.* Unlimited access to the SCAR email expert hotline* 
which enables you to ask questions of SCAR s cadre 
of experts, 

* Reduced registration fees for SCAR conferences, 

* SCAR U Online member discount. 



Illff®t^lll3ti©il 

* Member discounts on SCAR Publications (including 
the SCAR U Primer Series). 

* Opportunities to network with colleagues — the best 
way to exchange new ideas and concepts. 

To begin your mem bership > just cheek the NEW SCAR 
Member box on the registration form or join online by 
completing an application on the SCAR Website. 

SCAR Members— be sure to return 
your renewal notices to recede the 
discounted member rate on your 
SCAR 2003 registration. 
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